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返回上一页的名字,请教如何?
var AllowChange: Boolean);
begin
showmessage((sender as TPageControl).Name);
//showmessage((sender as TTabSheet).Name);若是此行,运行出错
end;
上面代码反回pagecontrol1,请问如何才能取得想要进入的Tabsheet的名字
若用(sender as TPageControl).ActivePage.Name返回上一页的名字,请教如何?
解决方案 »
- 画格子图,并在每个格子中按照自己的意愿填充不同的颜色
- 通过ADOQUERY 查询完毕了,想取出某一个字段的值怎么弄?
- 非常急的问题!!!关于dxDBGridD的一个问题??
- 如何读取dll里的jpeg资源文件
- 谈谈 delphi8 和它的前景!!!谢谢!!
- http 断点续传下载的奇怪问题
- treeview的问题
- 请问怎样锁定一个窗口的大小,使不能拉伸和缩小?
- 请问为什么 我不能把单独的一个时间加到SQL里面去?难道不能把Date和Time拆开来吗?为什么我的DBGrid不能把Date和Time拆开?
- type TNotifyEvent = procedure (Sender: TObject) of object中的 of object是什么意思,它与过程类型有什么区别?
- 如何在delphi中实现windows中net send 发送消息的功能!
- 如何使用QReport的Detail中打印指定行数的记录??
看不太懂你的问题。我猜想你问的问题是不是这样的:
"如何才能在点击某个新的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事件呢?