ich mach bei sowas in der Regel eine Public Methode in das Fenster was Modal geöffnet werden soll welche dann so aussieht
Delphi-Quellcode:
function Tf_Kontakte.Execute(ASearchText: String): Boolean;
begin
e_suchbegriff.Text := ASearchText;
result := ShowModal = mrOK;
end;
und dann wird diese Public-Methode aufgerufen. Vorteil von dieser Variante ist das man auch auf Private-Elemente beim Initialisieren was zuweisen kann.
Meist mach ich dann noch zusätzlich eine Class-Methode um mir das Creieren zu ersparen:
Delphi-Quellcode:
class function Tf_Kontakte.ExecuteClass(ASearchText: String): Boolean;
var lForm: TfKontakte;
begin
result := False;
lForm := Tf_Kontakte.Create(nil);
try
result := lForm.Execute(ASearchText);
finally
lForm.Free;
end;
end;