绝对基础问题~

Question

1/如何获得鼠标的位置（在桌面上和在窗体上的相对位置）2/怎样让窗体相应按键？3/怎样用程序让button实现按下、反弹效果？4/怎样使image大小等于所载入图片的大小？

Answer 1

1:
var
p:tpoint;
getcursorpos(p);2:在ONKEYPRESS中加入你的控制代码..3:button1.down4:image的width和height就是文件的长宽..

Answer 2

UP。补一下.2、要将Form的KeyPreview属性设置为true.然后在Form的OnKeyUp写入代码4、将image属性AutoSize设置为true。图片载入image就会自动设置为载入的图片的宽高。

Answer 3

上面的方法都可以的!
獲取屏幕位置可用:ScreenToClient()

Answer 4

1、也可以访问Mouse.CursorPos (TPoint类型)，要引用Controls单元

Answer 5

3、
procedure TForm1.Button1Click(Sender: TObject);
var p:TPoint;
begin
        P.X:=Button2.Left+Button2.Width div 2 ;
        P.Y:=Button2.Top+Button2.Height div 2;
        p:=ClientToScreen(P);
        SetCursorPos(P.x,P.y);
        Mouse_Event(MOUSEEVENTF_LEFTDOWN,P.X,P.Y,0,0);
        Application.ProcessMessages;
        Sleep(1000);
        Mouse_Event(MOUSEEVENTF_LEFTUp,P.X,P.Y,0,0);
end;

Answer 6

同意 ： hch_45(んこん)

Answer 7

都打完了 ～～
补充以下默认鼠标位置就是相对于窗体取得屏幕鼠标位置用ScreenToClient()