在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
Const WM_YOURMSG=WM_USER+100; 你的过程定义可以这样: procedure YourProc(var MSG:TMessage);message WM_YOURMSG; 这样,当你的窗口收到该消息时,将调用这个过程。 例如: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Const WM_MINE=WM_USER+100; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure Mine(var msg:TMessage);message WM_MINE; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Mine(var msg: TMessage); begin Showmessage('OK'); end; procedure TForm1.Button1Click(Sender: TObject); begin Sendmessage(handle,WM_MINE,0,0); end; end. 这个单元定义了一个消息,当按下按钮时,向自己窗口发送这个消息(当然,不一定发送到自己的窗口,处理消息的过程也可以在其他地方),然后弹出个对话框。这当然是多此一举,不过,只是为了说明使用方法。 至于想处理MOUSECLICK时的MOUSE位置和状态,你可以不处理ONCLICK事件,而在ONMOUSEDOWN事件里处理。这个事件提供的参数分别告诉了你 Sender:那一个按钮接收这个鼠标事件: Shift:当前鼠标的按钮状态是什么样,其他键盘状态是什么样,我们一般用 if Shift=[ssleft]来判断是否鼠标左键点击,有关方括号里的值,你可以查询DELPHI的在线帮助,关键字:TShiftState Button:表明那一个鼠标键被按下, X,Y:鼠标在接收这个鼠标事件时的位置,如果你需要的是屏幕的位置可以这样做: procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var CurrentPos:TPoint; begin if shift=[ssRight] then begin CurrentPos:=TButton(Sender).clientToScreen(point(x,y)); {或者,GetcursorPos(CurrentPos)} Showmessage(format('X:%d,Y:%d',[CurrentPos.x,CurrentPos.y])); end; //这个过程将使你鼠标在按钮上点下时弹出对话框,标明当前的位置。 end; ; 这样CurrentPos的X,Y就是当前屏幕的坐标。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论