5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
__ANDY__WU 2007-06-12
- 打赏
- 举报
z自己解决了,不过还是谢谢你这么 关注~~~
__ANDY__WU 2007-06-03
- 打赏
- 举报
加分理由 http://community.csdn.net/Expert/topic/5577/5577572.xml?temp=.3176386
dBASEIII 2007-06-03
- 打赏
- 举报
procedure TForm1.Test(var msg: tagMsg; var H: boolean);
begin
//if (Msg.hwnd = Handle) or (FindControl(Msg.hwnd)<>nil) then
if (Msg.message = WM_LButtonDown) or (Msg.message = WM_NCLBUTTONDOWN) then
Caption := Format('%d,%d',[mouse.CursorPos.X, mouse.CursorPos.Y]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage := Test;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(self.Caption);//测试:先响应OnMessage后,消息才分派到BtnOnclick
end;
begin
//if (Msg.hwnd = Handle) or (FindControl(Msg.hwnd)<>nil) then
if (Msg.message = WM_LButtonDown) or (Msg.message = WM_NCLBUTTONDOWN) then
Caption := Format('%d,%d',[mouse.CursorPos.X, mouse.CursorPos.Y]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage := Test;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(self.Caption);//测试:先响应OnMessage后,消息才分派到BtnOnclick
end;
