if (sender as TForm).Parent <> nil then
begin
TTabSheet((sender as TForm).Parent).free;
//把关闭的标签页的前一页设为活动页
pgcMain.SelectNextPage(false);
abort;
end;
你确定 sender是TForm类型???????(sender as TForm).Parent 是TTabSheet????我怎么觉得Sender是PageControl?
begin
TTabSheet((sender as TForm).Parent).free;
//把关闭的标签页的前一页设为活动页
pgcMain.SelectNextPage(false);
abort;
end;
你确定 sender是TForm类型???????(sender as TForm).Parent 是TTabSheet????我怎么觉得Sender是PageControl?
解决方案 »
- 远程操作数据库,用什么方式最好
- 程序不定期出现鼠标移动到控件上窗台自动关闭,什么原因呢?
- 请教:关于API函数 ShellExecute 的参数问题!
- 取值问题,很简单,送分拉
- 请各位高手帮忙
- 类似于QQ这样的控件哪里有下载?
- 谁有比较详细的二进制文件的读写实例啊?
- 关于STRINGGRID的简单问题,高分求教,在线,快来拿分
- 请大家解决一下!急!我刚装的WIN2000就是装不上DELPHI6什么原因?(在线等待)
- Delphi中如何做数据库Pack更好!(30分赏你)
- 请问asta怎样用事务执行一个新增语句,一个修改语句,一个存储过程的后,得到存储过程的输出参数值(100分在线等)
- delphi7捕捉炒股软件中的可卖数量框中内容变化
(Sender as TForm).Parent 是TTabSheet
Sender是TForm