TTabsheet FindComponent funktioniert nicht

[ATS3788]

Delphi-Quellcode:

 _TabSheet := TTabSheet.create(_PageControl);
  _TabSheet.Parent := _PageControl.Parent;
  _TabSheet.PageControl := _PageControl;
 _TabSheet.Show;

   _TabSheet.Name := NewExpName;
  _TabSheet.Caption := _TabSheet.Name;

_TabSheet := (FindComponent(_TabSheet.Name) as TTabSheet);

 if  _TabSheet <> nil then
 beep;

end;    end;

Bei folgendem Testcode bekomme ich bei FindComponent
nur ein nil. Wo ist mein Fehler, bei amderen Komponenten
habe ich keine Probleme

[DeddyH]

Zitat:

_TabSheet.Parent := _PageControl.Parent;

Dann musst Du auch FindComponent des Parents aufrufen.

[Sir Rufo]

 _TabSheet := TTabSheet.create(_PageControl.Owner); Try this

[Sir Rufo]

Zitat von DeddyH:

Zitat:

_TabSheet.Parent := _PageControl.Parent;

Dann musst Du auch FindComponent des Parents aufrufen.

FindComponent basiert doch auf dem Owner Verhältnis.
FindControl basiert auf dem Parent Verhältnis
und beide Suchen sind nicht rekursiv
War mir jedenfalls so

[DeddyH]

Sicher bin ich da gerade auch nicht, da hilft nur Probieren.

[edit] Stimmt, Owner, nicht Parent. [/edit]

[Sir Rufo]

Zitat von DeddyH:

Sicher bin ich da gerade auch nicht, da hilft nur Probieren.

Das ist so

Der Owner muss mindestens TComponent sein aber der Parent muss mindestens TControl sein

[DeddyH]

Hab' s doch schon editiert. Ändert aber nichts an der Tatsache, dass er wohl FindComponent des falschen Controls aufruft

[edit] Muss der Parent nicht sogar TWinControl sein? [/edit]

[ATS3788]

Sir Rufo und DeddyH danke

_TabSheet := TTabSheet.create(_PageControl.Owner);

Hat funktioniert

[Bummi]

Deines funktioniert auch, Du musst nur an der richtigen Stelle wieder suchen
_TabSheet := (_PageControl.FindComponent(_TabSheet.Name) as TTabSheet); wenn Du als Owner _PageControl verwendest
 _TabSheet := TTabSheet.create(_PageControl);