Messagebox Pascal Frage!

[Ghostwalker]

Nun..einfach ein Forumlar basteln. Wichtig dabei ist die Eigenschaft ModalResult bei den Buttons.


und dann eine Funktion drumrum bauen:

Code:

Function EigenerDialog:Boolean;
var
  DLG : TMeinEigenerDialogMitOkCancel;

begin
  result := FALSE;
  dlg := TMeinEigenerDialogMitOkCancel.Create(Application);
  if (dlg.showmodal = MrOk) then
     result := True
  dlg.free;
end;