eigener messagedlg

[Matze]

So fasse ich das auch auf, hier mit wenigen Kommentaren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  // 2 Buttons erzeugen, deren Beschriftung man dann anpasst
  f := CreateMessageDialog('Jetzt oder später?', mtInformation, [mbOk, mbCancel]);

  //Beschriftung anpassen
  (f.FindComponent('Cancel') as TButton).Caption := 'Jetzt';
  (f.FindComponent('OK') as TButton).Caption := 'Später';

  //Dialog anzeiegn
  f.ShowModal;
  f.Free;
end;

Die Rückgabewerte sind die selben, wie beim normalen Dialog eben auch.


Nachtrag: CreateMessageDialog ist besser als ich dachte.