状态栏StatusBar1如何动态显示操作内容??

Question

做了一个查询统计小程序,其中用了几个PageControl组件,我想在状态栏StatusBar1显示当前打开的PageControl.ActivePage:=TabSheet的Caption内容,怎么做??

Answer 1

procedure TForm1.PageControl1Change(Sender: TObject);
begin
   statusbar1.Panels[0].Text:=PageControl1.ActivePage.Caption;
end;

Answer 2

procedure TForm1.PageControl1Change(Sender: TObject); 
begin 
  statusbar1.Panels[0].Text:=PageControl1.ActivePage.Caption; 
end; 楼主难道就要这个？？？还是要别的效果呢？
可以看看ApplicationEvents控件，也许是你想要的效果。