Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
12. Mai 2009
Ja, aber hier muss ja der Zeiger umgebogen werden. Z.B. soll nach dem Aufrufformerzeugen(TForm2,TForm(form2));Form2 auf die neu erstellte Instanz verweisen.
Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
12. Mai 2009
Hmm, um einen Cast kommst du hier auch nicht herum.
Form2 := TForm2(createform(TForm2));
Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
12. Mai 2009
Ähm ja, da hab ich zu sehr von der Vorlage abgekupfert. Ein FreeAndNil wäre besser. Oder man lässt das Exceptionhandling an dieser Stelle weg - ich weiß ja nicht, wofür es gut sin soll.
Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
12. Mai 2009
Wie wäre es denn, wenn du ganz banal eine Funktion anstelle der Prozedur nehmen würdest:
function CreateForm(AOwner: TFormClass): TForm;
begin
Application.CreateForm(AOwner, Result);
try
Result.Parent := mainform.panel_df;
mainform.Notebook1.Visible := false;
Result.Show;
except
Result := nil;