Frames als Parameter übergeben

[Jeff93]

Hallo,

ich arbeite momentant mit Frames und frage mich nun ob es möglich ist verschiedene abgeleitete Klassen von TFrame als Parameter zu übergeben und dann zu erst zu erzeugen?

so ähnlich in der Art

Delphi-Quellcode:

pocedure TForm1.ErstelleFrame(Frame: TFrame);
begin
  Frame := TFrame.Create(Self);
  // ...
end;

[Uwe Raabe]

Ich glaube du meinst eher sowas:

Delphi-Quellcode:

function TForm1.ErstelleFrame(FrameClass: TFrameClass): TFrame;
begin
  result := FrameClass.Create(Self);
  // ...
end;

Wenn deine abgeleiteten Frames z.B. TMyFrame1 und TMyFrame2 sind, dann ist der Aufruf etwa so:

Delphi-Quellcode:

MyFrame1 := ErstelleFrame(TMyFrame1) as TMyFrame1;
MyFrame2 := ErstelleFrame(TMyFrame2) as TMyFrame2;

[Jeff93]

Bei mir gibt s keine Komponente die TFrameClass heisst, habe sie jedenfalls nicht in der Hilfe gefunden

[Uwe Raabe]

Zitat von Jeff93:

Bei mir gibt s keine Komponente die TFrameClass heisst, habe sie jedenfalls nicht in der Hilfe gefunden

Sorry...

Delphi-Quellcode:

type
  TFrameClass = class of TFrame;

[Jeff93]

Danke!