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:

Delphi-Quellcode:

_TabSheet.Parent := _PageControl.Parent;

Dann musst Du auch FindComponent des Parents aufrufen.

[Sir Rufo]

Delphi-Quellcode:

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

Try this ;)

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1130910)

Zitat:

Delphi-Quellcode:

_TabSheet.Parent := _PageControl.Parent;

Dann musst Du auch FindComponent des Parents aufrufen.

Delphi-Quellcode:

FindComponent

basiert doch auf dem Owner Verhältnis.

Delphi-Quellcode:

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:

Zitat von DeddyH (Beitrag 1130915)

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 :zwinker:

[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

Delphi-Quellcode:

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

wenn Du als Owner _PageControl verwendest

Delphi-Quellcode:

 _TabSheet := TTabSheet.create(_PageControl);