补问：有关pagecontrol的changing事件问题？用(sender as TPageControl).ActivePage.Name返回上一页的名字？

Question

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
showmessage((sender as TPageControl).Name);
//showmessage((sender as TTabSheet).Name);若是此行，运行出错
end;
上面代码反回pagecontrol1,请问如何才能取得想要进入的Tabsheet的名字
若用(sender as TPageControl).ActivePage.Name返回上一页的名字，请教如何？

Answer 1

用一个全局变量来放上一页的NAME吧

Answer 2

你考虑问题的思路可能有点问题。
看不太懂你的问题。我猜想你问的问题是不是这样的：
"如何才能在点击某个新的tabsheet时，返回离开的那个tabsheet的Name？。
如果是这个问题,则可以用OnChanging事件来解决。procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
   showMessage((Sender as TPageControl).ActivePage.Name);
end;请你对照OnChage和OnChageing事件的效果
procedure TForm1.PageControl1Change(Sender: TObject);
begin
   showMessage((Sender as TPageControl).ActivePage.Name);
end;为什么死盯着OnChage事件呢？