Form 2 aus Form 1 öffnen und nach schließen von Form 2 in Form 1 witermachen

[Walter Landwehr]

Alle meine Forms sind MDI Forms, die möchte ich nicht auf Modal setzen. Gibt es sonst keine andere Möglichkeit?
Wenn Form 2 geschlossen wird sollte in Form 1 dieser Coder verarbeitet werden.

Delphi-Quellcode:

PatBlattQry.close;
    PatBlattQry.ParamByName('PATIENTNR').AsInteger := TiereQry.FieldByName('PATIENTNR').AsInteger;
    PatBlattQry.Open;
    if (PatBlattQry.RecordCount > 0) then
      btnPatblatt.Font.Color := clred
    else
      btnPatblatt.Font.Color := clWindowText;
    btnPatblatt.Refresh;

[lxo]

Zitat von Walter Landwehr:

Alle meine Forms sind MDI Forms, die möchte ich nicht auf Modal setzen. Gibt es sonst keine andere Möglichkeit?
Wenn Form 2 geschlossen wird sollte in Form 1 dieser Coder verarbeitet werden.

Delphi-Quellcode:

PatBlattQry.close;
    PatBlattQry.ParamByName('PATIENTNR').AsInteger := TiereQry.FieldByName('PATIENTNR').AsInteger;
    PatBlattQry.Open;
    if (PatBlattQry.RecordCount > 0) then
      btnPatblatt.Font.Color := clred
    else
      btnPatblatt.Font.Color := clWindowText;
    btnPatblatt.Refresh;

Du könntest dem Form2 ein OnClose/OnDestroy-Event zuweisen, wenn du dieses aus Form1 verwendest.
In dem du definierst was passieren soll wenn die Form geschlossen/freigegeben wurde.

Delphi-Quellcode:

lForm2 := TPatientenblattFrm.Create(Application.MainForm, Patient1Qry.FieldByName('PatientNr').AsInteger, TiereQry.FieldByName('TiereNr').AsInteger);
lForm2.OnClose := MeineProzedurAusForm1DieAusgeführtWerdenSollWennForm2GeschlossenWurde;
lForm2.OnDestroy:= MeineProzedurAusForm1DieAusgeführtWerdenSollWennForm2FreigegebenWurde;

[Klaus01]

oder eine Nachricht (postMessage) an die Form1 senden wenn die Form2 geschlossen wird.

Grüsse Klaus

[TomyN]

Werden MDI Fenster nicht sowieso im 'Parent' verwaltet? (Hab glaub ich in 40 Jahren noch nie eine MDI Fenster erzeugt).
Ansonsten im Programm1 verwalten (handle anlegen, create ) und am Ende von Programm2 eine Nachricht an Form1 schicken. Bei mir inzwischen immer eine 'Bitte schließe mich' Nachricht. Alternativ kann man natürlich auch nur melden 'Programm 2' beendet, bitte Handle löschen und Processing starten.

[Walter Landwehr]

Also ich rufe in Form 2 bei OnDestroy eine Procedure in Form 1 auf. das geht auch nur erkennt die procedure nicht mein Button 'btnPatblatt' kommt Zugriffsverletzung.

Delphi-Quellcode:

procedure TTierhalterFrm.BtnPatblattFarbe;
begin
  if (ToolsOperation.Farbe = True) then
    btnPatblatt.Font.Color := clred   // Hier kommt Zugriffsverletzung
  else
    btnPatblatt.Font.Color := clWindowText;
  btnPatblatt.Refresh;
end;

Keine Ahnung warum.
Ist die Form 1 nicht aktiv?

[TomyN]

Schick doch einfach eine Message an Form1. Wenn Du das mit Postmessage machst, dann ist das ganze entkoppelt.
Ansonsten wäre ich bei Zugriffen nach außen bei Destroy seehr vorsichtig, weil da einiges im Hintergrund abläuft.

[himitsu]

Joar, was nach dem Schließen gemacht werden soll, an OnClose/OnDestroy der zweiten Form hängen, oder als Callback übergeben beim Erstellen übergeben.

Nja, den Code für Form1 nicht in die Form2.
Entweder wird ein Callback (Methode) von Form1 als Callback an Form2 übergeben.
Oder, falls OnClose/OnDestroy der Form2 nicht verwendet wird, dann ein Event von Form1 an dieses OnClose/OnDestroy.



Du nutzt aber nicht zufällig die globale Variable der Form1?
Wenn ja, bist'e dir sicher, dass diese Form1 zu dem Zeitpunkt noch da ist?


SendMessage/PostMessage haben den Vorteil, dass wenn die Zielform verschwindet, verbleibende Messages gelöscht werden.
Gibt es die Form beim Senden nicht mehr, geht die Message ins Nirvana und wird nie ausgelöst, ABER gibt es zwischenzeitlich ein neues Fenster (WinControl ala Form/Edit/sonstwas), dann geht die Message an jenes.
Hier kann man sich nur schützen, indem man vorher explizit eine Message-ID reserviert, welche niemand anderes nutzt.

[Walter Landwehr]

Wie funktioniert PostMessage? (von form zu form) habe es noch nie benutzt. Gibt es irgendwo ein Beispiel.

[Uwe Raabe]

Zitat von Walter Landwehr:

Also ich rufe in Form 2 bei OnDestroy eine Procedure in Form 1 auf.

Wie machst du das denn genau?