请问怎么让窗口接收并处理自定义的消息

Question

随便找一本DELPHI的书。推荐DELPHI 4 UNLEASHED。

Answer 1

先声明procedure myMessage(var msg:TMessage);message WM_USER+1;
再
procedure TForm1.myMessage(var msg:TMessage);
begin
  ....
end;Mouse位置：GetCursorPos(aPoint);

Answer 2

假设你的消息这样定义：
Const 
  WM_YOURMSG=WM_USER+100;
你的过程定义可以这样：
   procedure YourProc(var MSG:TMsg);message WM_YOURMSG;
这样，当你的窗口收到该消息时，将调用这个过程。
例如：unit Unit1;interfaceuses
  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:TMSG);message WM_MINE;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Mine(var msg: TMSG);
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就是当前屏幕的坐标。