welcher button von aussen?

[khh]

hallo zusammen,
ichhabe ein form welches folgendermassen zur Laufzeit erstellt und wieder freigegeben wird:

Delphi-Quellcode:

  try
    myForm := TmyForm.Create(NIL);
    myvalue := myForm.showmodal;
   finally
     // form freigeben
     myForm.free;
   end;

auf dem Form befinden sich 3 buttons, die alle das Form schliesen und auf die ich im finally -Block reagieren möchte.

wie erfahre ich welcher button das Form geschlossen hat ?

danke gruss KH

[Klaus01]

Guten Morgen,

pro Button einen anderen ModalResult wert verwenden.

Grüße
Klaus

[DeddyH]

Vergib den Buttons ein ModalResult und frag das im ShowModal ab.

[khh]

Zitat von Klaus01:

Guten Morgen,

pro Button einen anderen ModalResult wert verwenden.

Grüße
Klaus

klar doch, ich danke dir

[uligerhardt]

Zitat von khh:

wie erfahre ich welcher button das Form geschlossen hat ?

Du schließt die Form, indem du ButtonX.ModalResult setzt und wertest den Rückgabewert von ShowModal aus.

EDIT: Roter Kasten? Aber war eh klar, dass sich bei der Frage die Antworten häufen.

[Nersgatt]

Was machen denn die Buttons. Wenn es die Klassischen Buttons sind (wie Ok, Abbrechen, etc), dann kannst Du den Rückgabewert von ShowModal prüfen. Die Buttons müssen dann natürlich das ModalResult entsprechend setzen.
Oder Du verpasst dem Form eine Property, die die Buttons entsprechend setzen. Den Wert kannst Du dann nach dem ShowModal (vor Free) prüfen.

Gruß,
Jens

[himitsu]

wie schließen die Button denn die Form?

Falls nicht über 'ne Ereignisprozedur der Buttons, dann sehr wahrscheinlich den Wert von myValue prüfen, oder wie Klaus01 es schon schrieb.

Delphi-Quellcode:

myForm := TmyForm.Create(NIL);
try
  myValue  := myForm.ShowModal;
  myResult := myForm.ModalResult;
finally
  myForm.free;
end;

[edit] immer diese schreibfehler -.-°

[khh]

Zitat von himitsu:

wie schließen die Button denn die Form?

Falls nicht über 'ne Ereignisprozedur der Buttons, dann sehr wahrscheinlich den Wert von myValue prüfen, oder wie Klaus01 es schon schrieb.

Delphi-Quellcode:

myForm := TmyForm.Create(NIL);
try
  myValue  := myForm.ShowModal;
  myResult := myForm.ModalResult;
finally
  myForm.free;
end;

[edit] immer diese schreibfehler -.-°

ich danke euch für die umfangreichen antworten.
hatte grad ein brett vorm kopf