Probleme mit Procedure die ein Frame aufrufen soll

[ensacom]

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

[s.h.a.r.k]

Hallo,

so kannst du es machen:

Delphi-Quellcode:

type
  TFrameClass = class of TFrame;

procedure test(a: TFrameClass);
begin
  ;
end;

// Aufruf:
test(TFrame);

[turboPASCAL]

Zitat von ensacom:

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

loadFrame(fWohnen1);

[s.h.a.r.k]

Er wollte doch aber den Frame-Typen übergeben haben und nicht eine Instanz davon.

[ensacom]

Vielen Dank, genau das war was ich gesucht habe.

Einen schönen Abend noch.

[ensacom]

Jetzt habe ich ein neues Problem.
Wie kann ich nun von meiner MainForm auf eine Komponente auf meinem Frame zugreifen?
Mit fWohnen1.Memo1.Lines.Add('bla') gehts nun nicht mehr.