Как получить число и список всех компонентов, расположенных на TNoteBook
|
Warp 4 спpашивает у хозяина:
- Хозяяяин, а у меня в pоду была DesqView?
- Hет, не было.
- Хозяяяин, а Windows 3.1 у меня в pоду не было?
- Hет, конечно не было.
- Хозяяяяин, а почему же тогда я такой тоpмозноооой?
|
procedure TForm1.Button1Click(Sender: TObject);
var
n, p: integer;
begin
ListBox1.Clear;
with Notebook1 do
for n := 0 to ControlCount - 1 do
with TPage(Controls[n]) do
begin
ListBox1.Items.Add('Notebook Page: ' + TPage(Notebook1.Controls[n]).Caption);
for p := 0 to ControlCount - 1 do
ListBox1.Items.Add(Controls[p].name);
ListBox1.Items.Add(EmptyStr);
end;
end;
|
|
