Das Programm auf Formular warten lassen

[gerritlober]

Hallo Leute,

ich habe mal eine Frage, wie kann ich ein Programm darauf warten lassen,
dass es erst im Quelltext fortfährt, wenn das zuvor geöffnete Form wieder geschlossen
ist? Bei den Standarddialogen von Windows funktioniert das ja.

Beispiel:

Delphi-Quellcode:

procedure Pfadlesen;
var pfad : string;
begin
  MeinForm.Show;
  Pfad := MeinForm.Pfad;
end;

Ich komme da echt nicht weiter. :wall:

[Christian Seehase]

Moin Gerrit,

öffne es nicht mit Show, sondern mit ShowModal.
Dann hast Du, was Du willst.

[Luckie]

Und beim OK Button schreibst du:

Delphi-Quellcode:

ModalResult := mrOK

Und beim Abbrechen Buttom entsprechend:

Delphi-Quellcode:

ModalResult := mrCancel;

Das kannst du dann in der aufrufenden abfragen:

Delphi-Quellcode:

if Form2.ShowModal = mrOK then  // Fenster wurde mit OK Button geschlossen
begin
  ...;
end
else
  ...;
end;

[Luckie]

Und beim OK Button schreibst du:

Delphi-Quellcode:

ModalResult := mrOK

Und beim Abbrechen Buttom entsprechend:

Delphi-Quellcode:

ModalResult := mrCancel;

Das kannst du dann in der aufrufenden abfragen:

Delphi-Quellcode:

if Form2.ShowModal = mrOK then  // Fenster wurde mit OK Button geschlossen
begin
  ...;
end
else
  ...;
end;

Somit reduziert sich der Code in der zweiten Form, wenn nichts weiter Großes passiert, auf diese zwei Zeilen.

[gerritlober]

Das klappt bei mir aber irgendwie nicht, ich habe immer den Rückgabewert 2
seltsamer Weise.

[Treffnix]

Du musst den Buttons in dem Formular das du öffnest auch das entsprechende Modalresult zuweisen. Entweder im OnClick mit ModalResult:= mrOK (bzw. mrCancel) oder im OI.

[gerritlober]

Sorry, aber bei mir klappt das nicht. Ich habe den Button ModalResult im
OI zugewiesen.

Dies ist der Fenster-Aufruf:

Delphi-Quellcode:

procedure TMainWindow.Projekteinstellungen1Click(Sender: TObject);
begin
  ConfigWindow.Project := ProjectData;
  if ConfigWindow.ShowModal = mrOk then
  begin
    ProjectData := ConfigWindow.Project;
    ShowMessage('Test');
  end;
end;

Delphi-Quellcode:

ShowMessage('Test');

Wird nicht ausgeführt.