首页
社区
课程
招聘
[旧帖] [求助]Delphi中的Tshape组件为何不能相应WM_SYSCOMMAND消息 0.00雪花
发表于: 2010-11-1 20:49 972

[旧帖] [求助]Delphi中的Tshape组件为何不能相应WM_SYSCOMMAND消息 0.00雪花

2010-11-1 20:49
972
近期准备做一个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的地方......

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回
//