FindComponent > TComponent zu TTabSheet

[Oldy]

hallo Leute

ich stehe wieder mal vor einem kleinem Problem.

Ich finde mit FindComponent meine Komponente, deren Name in einer Ini-Datei steht.
Jedoch bekomme ich einen Fehler, wenn ich dies Machen möchte:
pagecontrol1.ActivePage :=FindComponent(ini.readstring('Config','Panel','Tabsheet1'));

Code:

Ikompatible Typen: 'TTabsheet' und 'TComponent'

Kann man irgendwie TComponent zu TTabsheet "Übersetzen"?

mfg
Oldy

[Bernhard Geyer]

Zitat von Oldy:

Kann man irgendwie TComponent zu TTabsheet "Übersetzen"?

Ja, mit as (und sinnvoll zuvor eigentlich ein Check mit is)

pagecontrol1.ActivePage :=FindComponent(ini.readstring('Config','Panel','Tabsheet1')) as TTabsheet;

[Oldy]

so leicht und doch so schwer

Vielen Dank!

[DeddyH]

Vorher checken kann aber wirklich nicht schaden.

Delphi-Quellcode:

var kompo: TComponent;
begin
  kompo := FindComponent(ini.readstring('Config','Panel','Tabsheet1'));
  if Assigned(kompo) then
    if (kompo is TTabsheet) then 
      pagecontrol1.ActivePage := TTabsheet(kompo);