-
-
[旧帖]
[求助]Delphi中的Tshape组件为何不能相应WM_SYSCOMMAND消息
0.00雪花
-
发表于:
2010-11-1 20:49
969
-
[旧帖] [求助]Delphi中的Tshape组件为何不能相应WM_SYSCOMMAND消息
0.00雪花
近期准备做一个FDS的建模工具，在选用组件模型上感觉TShape比较方便，但在使用中发现Tshape不能相应WM_SYSCOMMAND消息，请高手指点一二，谢谢！
procedure TForm1.Shape1MouseEnter(Sender: TObject);
begin
Shape1.Perform(WM_SYSCOMMAND,SC_CLOSE,0);
end;
同样的代码，对TButton等都起作用
procedure TForm1.Button1MouseEnter(Sender: TObject);
begin
Button1.Perform(WM_SYSCOMMAND,SC_CLOSE,0);
end;
看Perform方法的帮助文档Controls.TControl.Perform，只要是TControl继承来的组件都可以的，自己猜想是TShape重载了Perform方法...但是搜索源码也没发现TShape...TGraphicControl有重载Perform的地方......
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
