Hallo, ich habe folgenden code mit dem ich ein frame aufrufen kann.
Delphi-Quellcode:
if (not assigned(FActiveFrame)) or not (FActiveFrame is TfWohnen1) then
begin
freeandnil(FActiveFrame);
FActiveFrame := TfWohnen1.Create(fMain);
FActiveFrame.Parent := FramePanel;
end;
Nun wollte ich daraus eine procedure machen dass ich nur noch das Frame übergeben muss.
Also in der Art
Delphi-Quellcode:
procedure TfMain.loadFrame(Framename: TFrame);
begin
if (not assigned(FActiveFrame)) or not (FActiveFrame is Framename) then
begin
freeandnil(FActiveFrame);
FActiveFrame := Framename.Create(self);
FActiveFrame.Parent := FramePanel;
end;
end;
Aufrufen wollte ich das ganze dann mit
loadFrame(TfWohnen1);
Das funktioniert so nicht, kann mir einer sagen wie es richtig geht?
Der Fehler liegt bei (Framename: TFrame) wie ich das sehe.
Danke schonmal und einen schönen Abend