form1中按钮1,按钮2控制form2中TpageControl的ActivePage属性?

Question

Form2的TpageControl.ActivePage:=TabSheet1;
Form2的TpageControl.ActivePage:=TabSheet2;
改正~~

Answer 1

procedure TForm1.Button1.OnClick(Sender: TObject);
begin
  Form2.PageControl1.ActivePage := 0; //假设TabSheet1就是第1个
end;
procedure TForm1.Button2.OnClick(Sender: TObject);
begin
  Form2.PageControl1.ActivePage := 1; //假设TabSheet2就是第2个
end;注：好像PageControl1.ActivePage属性是从0开始编号的。要不是的话，你应该知道怎么改！！

Answer 2

按下FORM1的按钮1.
出现FORM2其中TpageControl.ActivePage:=TabSheet1;
如果按下是FORM1的按钮2.
出先FORM2其中TpageControl.ActivePage:=TabSheet2;大概是这样~~

Answer 3

TO CoolSlob(夕阳无限好，只是今黄昏----西下夕阳)
老大,编译是通过,但执行,出问题呀~~

Answer 4

一切看代码~~
if not Assigned(book) then
  book := TForm4.Create(Application);
  book.show;
以上是某个按钮的单击事件,那我如何在创建FORM4的同时,控制FORM4的TpageControl.ActivePage属性呢?

Answer 5

//button1
//onform2showmodal;
with form2 do
 begin
   TpageControl.ActivePage:=TabSheet1;
 end;
//button2
//onform2showmodal;
with form2 do
 begin
   TpageControl.ActivePage:=TabSheet2;
 end;