Komponenten auf einer Seite eines TNoteBook suchen

[Hans Muhl]

Hallo an alle.

Kann mir jemand sagen wie ich feststellen kann welche Komponenten sich auf einer Seite eines TNoteBook befinden? Mit Parent komme ich nicht weiter.

Vielen Dank

[André Feldmann]

Hallo Hans,
über die RTTI iterieren und den ClassName auslesen.

Z.B.
with aForm do
for i := 0 to Pred(ComponentCount) do
begin
if Components[i].ClassName = 'TEdit' then
...
end;

Gruß
Andr&#233

[Hans Muhl]

Hallo André,

das funzt leider nicht, da die Seiten des NoteBooks nicht in Components[i] enthalten sind, nur das NoteBook selbst.

Gruß
Han

[Frank Reim]

Hallo Hans,

also, wenn es tatsächlich der TNotebook sein muss:

<CODE>
Var
TabPage: TPage;
begin
TabPage:= TPage(NoteBook1.Pages.Objects[0]);
<CODE>
TabPage enthält nun die erste Page, und jetzt kannst du die Controls iterieren.

Cu, Fran

[Hans Muhl]

Hallo Frank,

danke für den Tip. Damit komme ich weiter