Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.487 Beiträge
 
Delphi 12 Athens
 
#4

Re: Frames über deren Namen dynamisch aufrufen

  Alt 8. Dez 2008, 14:40
Zitat von mkinzler:
Da fällt mir nur .FindComponent() in Verbindung mit Typvergleich ein
Da die Frames zur Laufzeit jedesmal neu erzeugt werden, wird FindComponent da gar nichts nützen.

Vielleicht hilft ja folgende Methode:

Delphi-Quellcode:
procedure MakeActiveFrame(AFrameClass: TCustomFrameClass; const ACaption: string);
begin
  if (not assigned(FActiveFrame)) or not (FActiveFrame is AFrameClass) then
  begin
    freeandnil(FActiveFrame);
    FActiveFrame:=AFrameClass.Create(self);
    FActiveFrame.Parent:=TabSheet1;
    TabSheet1.Caption := ACaption;
  end;
end;
Aufruf dann im jeweiligen ButtonClick etwa so:

MakeActiveFrame(TFrameShowInteressenten, 'Interessenten'); bzw.

MakeActiveFrame(TFrameObjekte, 'Objekte');
Uwe Raabe
  Mit Zitat antworten Zitat