|
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
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论