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