Einzelnen Beitrag anzeigen

Klaus D.

Registriert seit: 27. Okt 2003
Ort: 03238 Finsterwalde
124 Beiträge
 
Delphi 6 Professional
 
#1

CreateMessageDLG(Rückgabewerte)

  Alt 27. Okt 2003, 16:42
Hallo

ich versuche jetzt schon sehr lange an die Rückgabewerte zu kommen , bekomme es aber nicht hin.
wie bekomme ich raus auf welchen Button geklickt wurde?
es handelt sich ja um eine von mir selbst erstellte MessageDLG wo ich die Caption der Button's überschreibe.
muß ich auch selber für die Zerstörung meines MessageDLGForm-Dialog sorgen.
Danke im voraus........Klaus Dabergott

PS:bin heute zum ersten mal bei euch im Forum ... gefällt mir.
ich hoffe immer Hilfe zu bekommen und auch mit meinem Wissen euch weiter zu helfen.


-------------------------------------------------------------------
MessageDLGForm := CreateMessageDialog ('Soll die Änderung des Datensatzes wirklich verworfen werden ?', mtWarning,mbYesNoCancel);
ButtonYes := MessageDLGForm.FindComponent ('Yes');
ButtonNo := MessageDLGForm.FindComponent ('No');
ButtonCancel := MessageDLGForm.FindComponent ('Cancel');

If Assigned (ButtonYes) and (ButtonYes is tButton)and
Assigned (ButtonNo) and (ButtonNo is tButton)and
Assigned (ButtonCancel) and (ButtonCancel is tButton)
Then

TButton (ButtonYes).Caption := 'Änderung verwerfen!';
TButton (ButtonNo).Caption := 'Weiß noch nicht!';
TButton (ButtonCancel).Caption := 'Änderung doch speichern!';
--------------------------------------------------
irgend ein Button.klick....MessageDLGForm.ShowModal;
----------------------------------------------------------------------------------------------
  Mit Zitat antworten Zitat