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');