求助：怎样在多页式的控件上动态生成其它控件(20分)

无

无厘头

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #1

就如在TabbedNotebook1這個控件的頁上动态生成ListBox控件

 

B

bundur

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #2

这和在FORM或PANEL上动态生成有什么不一样吗？

 

无

无厘头

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #3

在TabbedNotebook1這种页式控件上生成控件我找不到定在指定页面上生成控件的方法，请指教

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #4

比如说要在TabbedNotebook第一页上面动态创建listbox
procedure TForm1.Button1Click(Sender: TObject);
var
APage: Pointer;
Lb:TListBox;
begin
APage := TabbedNotebook1.Pages.Objects[0];
Lb := TListBox.Create(APage);
Lb.Parent := APage;
Lb.Left := 10;
end;
其中Pages.Objects[0]控制的就是在那个页面上

 

无

无厘头

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #5

謝謝jlutt-sadan,的幫助
還有我還想問一下，在這些頁式控件上动态生成控件，是不是也是用Pages.Objects[0]这句的呢

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-24

• #6

这些用TStrings保存页面的都是这样的