怎么让一Form上创建的PageControl中的几个TabSheet都响应...

[SayYouSayMe]

怎么让一Form上创建的PageControl中的几个TabSheet都响应Form上
的某按钮(不是Tabsheet上的按钮）事件,且互相不牵连？

[SayYouSayMe]

heng fan me?

[colacoca]

按钮的okclick事件
begin
tabsheet1.click;
end;

[blazingfire]

不会吧老大，你要这样干呀？
如果是点击一个按钮依次显示可以这样：
const icount:Integer=0;

procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=icount;
Inc(icount);
if icount=PageControl1.PageCount then
icount:=0;
end;