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

[bcvs]

Zitat von Walter Landwehr:

Hallo, ich öffne form 2 so.
TPatientenblattFrm.Create(Application.MainForm, Patient1Qry.FieldByName('PatientNr').AsInteger, TiereQry.FieldByName('TiereNr').AsInteger);

Wenn die Form im Create gleich geöffnet wird, dann muss bei der Form im Objektinspektor visible auf true stehen. Setze das man auf false. Dann kannst du selbst bestimmen, ob du sie modal oder nicht modal öffnen willst. Und ich würde die Form auch selbst erzeugen und wieder freigeben.

Also:

Delphi-Quellcode:

Form2:=TPatientenblattFrm.Create(nil, Patient1Qry.FieldByName('PatientNr').AsInteger, TiereQry.FieldByName('TiereNr').AsInteger);
try
  if Form2.ShowModal = mrOK then begin
    // mach irgendwas
  end;
finally
  Form2.Free;
end;