Question

delphi 的PageControl问题

我的界面左边是一个Edit编辑框！右边是一个PageControl控件！我想让PageControl控件的tabSheet发生变化时左边的Edit显示的内容不一样！怎么实现呢！请高手指点！比如左边选择用户信息页时右边显示所有的用户名字！类似这样的！如何响应tabSheet切换的响应！

Answer 1

1 我想让PageControl控件的tabSheet发生变化时左边的Edit显示的内容不一样
答案：PageControl 有一个onchange事件，在里面写代码就可以了。

Answer 2

在TabSheet1上放置button2，TabSheet2上放置button1。one和two都是全局变量！然后在TabSheet SHOW时间中就可以实现了！

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
if one then
begin
ShowMessage('1');//换成你刷新数据的动作
one:=false;
end;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
if two then
begin
ShowMessage('2');//换成你刷新数据的动作
two:=false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
one := true;
two := false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
one := false;
two := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
two := true;
one := false;
end;

Answer 3

PageControl的OnChangeg事件里写。
判断PageControl的ActivePage