procedure DropFile(var Message: TMessage); message WM_DROPFILES;procedure TForm1.WMNID(var msg:TMessage );
begin
case msg.LParam of
WM_LBUTTONUp: Form1.Visible:=not Form1.Visible;
WM_RBUTTONUP: PopupMenu1.Popup(0,0);
end;
end;
怎么取出鼠标坐标?
begin
case msg.LParam of
WM_LBUTTONUp: Form1.Visible:=not Form1.Visible;
WM_RBUTTONUP: PopupMenu1.Popup(0,0);
end;
end;
怎么取出鼠标坐标?
Mouse.CursorPos.Y
就是了...
P : TPoint;
begin
GetcursorPos(P);
P.x ......
P.y ......
end;
Var
P : TPoint;
begin
GetcursorPos(P);
P.x ......
P.y ......
end;
Mouse.CursorPos.X
Mouse.CursorPos.Y是绝对的,相当于屏幕而言的
通过Windows.ScreenToClient转换之后的是相对的看你的需要了