5,392
社区成员
发帖
与我相关
我的任务
分享如何屏闭windows的某些消息.例如wm_copy wm_cut等等？
如何屏闭windows的某些消息.例如wm_copy wm_cut等等？
用application.onmessage如何实现。（10分）
另外如何动态添加控件的事件（40分）？
用application.onmessage如何实现。（10分）
另外如何动态添加控件的事件（40分）？
...全文
请发表友善的回复…
发表回复
anh 2003-01-21
- 打赏
- 举报
你可以
procedure WndProc(var Msg : TMessage);override;
这样不就可以了吗？
procedure WndProc(var Msg : TMessage);override;
这样不就可以了吗？
wjlsmail 2003-01-20
- 打赏
- 举报
FormCreate :
Application.OnMessage := MyMessage ;
Procedure TForm1.MyMessage(var Msg: TMsg) ;
begin
if Msg.Message = WM_Copy /WM_Cut then
...
end ;
----------------------------------------------------
Btn : TButton ;
Btn := TButton.Create(self) ;
with Btn do
begin
Parent := Self ;
OnClick := MyClick ;
end ;
Procedure TForm1.MyClick(Sender : TObject) ;
begin
ShowMessage('ok') ;
end ;
Application.OnMessage := MyMessage ;
Procedure TForm1.MyMessage(var Msg: TMsg) ;
begin
if Msg.Message = WM_Copy /WM_Cut then
...
end ;
----------------------------------------------------
Btn : TButton ;
Btn := TButton.Create(self) ;
with Btn do
begin
Parent := Self ;
OnClick := MyClick ;
end ;
Procedure TForm1.MyClick(Sender : TObject) ;
begin
ShowMessage('ok') ;
end ;
