Hallo Gemeinde,
ich möchte aufgrund der mehrfachen Nutzung das Erzeugen meiner Formulare in eine Funktion auslagern.
Meine Ansätze hierzu funktionieren soweit auch, jedoch verhält sich das ganze in manchen Fällen ein wenig mehrwürdig:
Delphi-Quellcode:
function createform(AOwner:TFormClass;nform:TForm):boolean;
Begin
try
application.CreateForm(aowner,nform);
nform.Parent:=mainform.panel_df;
mainform.Notebook1.Visible:=false;
nform.Show;
result:=true;
except
result:=false;
end;
end;
//Aufruf:
createform(TForm1,Form1); //Funktioniert
aber: nachdem die Form erzeugt wurde prüfe ich mit:
if assigned(form1) then machwas
Hier wird seltsamerweise immer false zurückgegeben. Setze ich anstelle des Aufrufes der Funktion, die Funktion selbst mit den entsprechenden Werten ein, wird auf die Prüfung der zugehörige Code ausgeführt. Meine Vermutung ist nun, dass ich mit den Typen der Parameter etwas vermasselt habe. Leider ist die Delphi 7 Hilfe hier jedoch nicht sehr auskunftsfreudig....also hoffe ich, dass ihr mir helfen könnt.
Vielen Dank!
//EDIT: ist die Funktionsbezeichnung kritisch?