1:

messagedlg('Welchen Wert soll das Ass haben?',mtConfirmation,);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

uses UAltDlg;


Function ShowAltDialog(lText,lButton1,lButton2:string):integer;
begin
 AltDialog.Label1 .caption := lText;
 AltDialog.Button1.caption := lButton1;
 AltDialog.Button2.caption := lButton2;
 AltDialog.showmodal; {bei showmodal muss erst das Fenster wieser geschlossen werden bevor es weiter geht}
 Result:=AltDialog.Ergebnis;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowAltDialog('Welchen Wert soll das Ass haben?','1','11'); //es wird zurückgeben ob und welcher Button gedrückt wurde,  -1=keine Button, 1=Button1, 2=Button2 
                                                             //Das Ergebnis bei deisem Beispiel nicht ausgewertet
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

unit UAltDlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TAltDialog = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
   Ergebnis:integer;
  end;

var
  AltDialog: TAltDialog;

implementation

{$R *.DFM}

procedure TAltDialog.Button1Click(Sender: TObject);
begin
 Ergebnis:=1;
 close;
end;

procedure TAltDialog.Button2Click(Sender: TObject);
begin
 Ergebnis:=2;
 close;
end;

procedure TAltDialog.FormShow(Sender: TObject);
begin
 Ergebnis:=-1;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  Dlg: TForm;
begin
  Dlg := CreateMessageDialog('Fehler', mtError, MBOKCANCEL);
  try
    TButton(Dlg.FindComponent('OK')).Caption := 'Löschen';
    TButton(Dlg.FindComponent('Cancel')).Caption := 'Beenden';
    case Dlg.ShowModal of
      mrOK:ShowMessage('Löschen');
      mrCancel:ShowMessage('Beenden');
    end;
  finally
    FreeAndNil(Dlg);
  end;
end;