CreateMessageDLG(Rückgabewerte)

[Klaus D.]

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;
----------------------------------------------------------------------------------------------

[Matze]

Hi! Herzlich willkommen in der DP!

if Sender = Button1 then... oder habe ich dich falsch verstanden?

[Alexander]

Probier mal:

Delphi-Quellcode:

 if (CreateMessageDialog ('Soll die Änderung des Datensatzes wirklich verworfen werden ?', mtWarning,mbYesNoCancel).ShowModal = mryes) then
  ShowMEssage('Ja wurde geklickt');

Arg was ist denn das mit den Delphi-Tags
Immer falsch geschrieben :saD:

[Klaus D.]

Danke
manchmal stehen echt ne menge Bäume rum...man sieht den Wald garnicht.
Tschö Klaus

[Alexander]

Stimmt

[Klaus D.]

ich noch mal.

tu mir doch bitte den Gefallen und erkläre mir wie ich nun an alle 3 Buttons ran komme.
unterscheiden ob ein bestimmter Button oder irgend ein anderer geklikt wurde ist ja kein Problem.

Delphi-Quellcode:

if CreateMessageDialog ('Soll die Änderung des Datensatzes wirklich verworfen werden ?', 
mtWarning,mbYesNoCancel).ShowModal = mryes then (ShowMEssage('Ja wurde geklickt'))  :wall: 
else (ShowMEssage('ein anderer Button wurde geklickt'));

Tschö Klaus
sollte ich die Kiste mal auschalten? manchmal kommt man ja 1,2,3.... Tage später selber drauf!

[edit=FuckRacism]Delphi-Syntax hinzugefügt. Bitte absofort selber machen. Mfg, FuckRacism[/edit]

[Alexander]

Wie per PN gesagt müssten die anderen Werte mrCancel, mryes, mrno
Oder meintest du wie man je nach dem was geklickt wurde handeln soll?
Dann müsste das doch mit ner Case of Abfrage funktionieren

[Klaus D.]

Hallo
der Vollständigkeit halber das funktionierende Ergebnis:

Delphi-Quellcode:

case (CreateMessageDialog ('Text', mtWarning,mbYesNoCancel)).
            ShowModal of     mrYes: ShowMessage('yes');
                             mrNo:ShowMessage('no');
                             mrCancel:ShowMessage('cancel');
                     end;

Danke für eure Hilfe. einfacher geht's ja nun wirklich nicht mehr.
Tschö Klaus

[edit=FuckRacism]Delphi-Syntaxhinzugefügt. Bitte selber machen! Mfg, FuckRacism[/edit]

[Klaus D.]

Ich noch mal.
aber wie bekomme ich denn jetzt die Caption der Button's
(mbYes,mbNo,mbCancel) überschrieben ???
so wie ich es ganz oben in meinem Beitrag tue.
Danke und Tschö Klaus

[Klaus D.]

Sorry...bin warscheinlich ein wenig schnell mit dem Hilfe-schreien.
Das Problem war doch schon gestern gelöst.

Delphi-Quellcode:

case MessageDLGForm.ShowModal of
          mrYes: ShowMessage('yes');
           mrNo:ShowMessage('no');
       mrCancel:ShowMessage('cancel');
 end;

Trotzdem danke...............der Klaus