Schalterstatus von Unterformular an Hauptform übergeben

[DevidEspenschied]

Hallo,

ich habe eine normale Delphi-Applikation, die einen Schalter in der Mitte hat. Nach dem Aufruf des Schalters wird ein Unterformular geöffnet, welches wiederum einen OK und einen Abbruch-Schalter hat. Die Schalter des Unterformulars sind BitBtn-Schalter, bei denen die Eigenschaft Kind jeweils auf bkOK bzw. bkAbort gesetzt ist.

Wie kann ich nun im Hauptformular, wovon ich das Unterformular aufrufe, abfragen welcher Schalter im Unterformular gedrückt wurde ?

Der Code im Hauptformular zum Öffnen des Untertformulars sieht wiefolgt aus:

Delphi-Quellcode:

PROCEDURE TMainForm.Button1Click(Sender: TObject);
VAR Unterformular : FormNeuesFormular.TNeuesFormular;
BEGIN
  Unterformular:=FormNeuesFormular.TNeuesFormular.Create(Application);
  TRY
    Unterformular.ShowModal;
  FINALLY
    Unterformular.Free;
  END;
END;

Meine Vermutung wäre irgendetwas direkt nach ShowModal. Hat jemand eine Idee ?

[grenzgaenger]

Zitat:

Zitat von devidespe

Delphi-Quellcode:

PROCEDURE TMainForm.Button1Click(Sender: TObject);
VAR Unterformular : FormNeuesFormular.TNeuesFormular;
BEGIN
  Unterformular:=FormNeuesFormular.TNeuesFormular.Create(Application);
  TRY
    Unterformular.ShowModal;
  FINALLY
    Unterformular.Free;
  END;
END;

zum beispiel, in dem du den wert modalresult abfrägst

Delphi-Quellcode:

if Unterformular.ShowModal = mrOK then ...

[RavenIV]

ShowModal kann einen Wert zurückgeben.
Bei Schalter-1 setzt Du ModalResult des zweiten Forms auf einen Wert, bei Schalter-2 auf einen anderen Wert.

Und dann im ersten Form:
if ZweitesForm.ShowModal = "Schalter-1-gedrückt" then...

Oder so ähnlich ;-)

[Fussball-Robby]

Delphi-Quellcode:

  if Form2.ShowModal = mrOk then
    ShowMessage('OK!')
  else
    ShowMessage('Abort!');

[DevidEspenschied]

Danke, werde ich probieren.