不能删除控件(100分)

  • 主题发起人 主题发起人 ZBJ2001_KF
  • 开始时间 开始时间
Z

ZBJ2001_KF

Unregistered / Unconfirmed
GUEST, unregistred user!
我在TButton的单击click事件中,调用(sender as TButton).free
就是对象的事件本身要清除对象。

系统提示抽象错误。有什么办法可以实现这样的功能?
 
没人注意吗. 在线等啊
 
可以释放呀,没有提示错误,你不要再其他地方调用这个按钮了,否则会出错。
 
nanshan说的对,看看其他地方有没有调用这个按钮的,或和它相关的事件什么的,
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then
TButton(Sender).Free;
end;
 
我也试过,确实出现楼主所说的问题,大概是button有属主,只有属主free才行,你可以试试动态创建一个没有属主的button,然后在单击事件里free
 
刚才试过了,还是不行,你到底想实现什么功能呀
 
To ZBJ2001_KF:
在 Button 执行 Click 事件后,还有很多事情要处理(有空多看源码),你把它 Free 掉了,那些代码谁处理啊?不出错才怪!
 
DFW还象以前的DFW.我以解决了. 就是建立一个过程,传递这个参数过去.我认为这样,这是样
事件也是对象的一个属性,也是对象变量的一部分,在对象内部FREE是不可以的.所以我试着在事件中调用一个过程,这时,已从对象的事件已结束,所以就可以FREE了.测试通过

理解对否未知.呵.感觉应该是
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部