M mgrgy Unregistered / Unconfirmed GUEST, unregistred user! 2007-11-11 #1 我在delphi6中的form上创建一个PageControl控件，在其上又动态增加若干个TabSheet页（数量不确定）。每页上又放入Memo、Edit、Button等控件，编写每页上的Button.OnClick事件时，只能对活动页操作，无法实现对各自页的操作，提请各位高手指点！
我在delphi6中的form上创建一个PageControl控件，在其上又动态增加若干个TabSheet页（数量不确定）。每页上又放入Memo、Edit、Button等控件，编写每页上的Button.OnClick事件时，只能对活动页操作，无法实现对各自页的操作，提请各位高手指点！
M mgrgy Unregistered / Unconfirmed GUEST, unregistred user! 2007-11-19 #2 可以用创建控件组的方法。 procedure TForm1.Button1Click(Sender:TObject); var Button:array[1..10] of TButton; i:integer; begin for i:=1 to 5 do begin Button:=TButton.Create(Self); Button.Parent:=Self; Button.Top:=80; Button.Left:=(i-1)*100+80; end;
可以用创建控件组的方法。 procedure TForm1.Button1Click(Sender:TObject); var Button:array[1..10] of TButton; i:integer; begin for i:=1 to 5 do begin Button:=TButton.Create(Self); Button.Parent:=Self; Button.Top:=80; Button.Left:=(i-1)*100+80; end;
