如何将鼠标定位到窗体的左上角(窗体的0,0位置)(50分)

dhzy · 2003-09-11

要用窗体句柄的方法实现，如窗体可以在屏幕上工人拖动，但按下某一按钮时鼠标指向窗体的左上角（不是屏幕的左上角）。

gfh21cn · 2003-09-11

利用TForm的ClientToScreen得到窗体左上角的屏幕坐标 然后用API:SetCursorPos来定位鼠标的位置

gfh21cn · 2003-09-11

不好意思,因为以前是用的CB,所以不能给你写DELPHI的例子

dhzy · 2003-09-11

请问有没有例子？

dhzy · 2003-09-11

对不起，刚才的问题写错了，不是点击按钮的窗体左上角，而是特定的其它的窗体的左上角（如屏幕上有两个窗体，为窗体1和窗体2，当点击窗体1上的按钮时，先将窗体2激活为当前窗体，再将鼠标定位到其左上角0，0）

gfh21cn · 2003-09-12

如果是点击左上角标题栏上.好象要截获鼠标在标题栏上的事件,如果你窗体的风格是bsNone的话,就不需要了 激活窗体可以用SetFocus这个函数 至于定位鼠标,我在上面已经讲述了. 因为对PASCAL不熟悉,所以不知道怎么写例子给你

gfh21cn · 2003-09-12

Form2.SetFocuse();

dhzy · 2003-09-12

窗体2不是用delphi开发的，不能用form2.setfocuse将其设为输入焦点，需用窗体句柄的方法实现。

angelgekko · 2003-09-12

不会吧，没人答？不难啊！ 得到 Handle 应该会吧，然后： var   Rect: TRect; GetWindowRect(Handle, Rect); SetCursorPos(Rect.Left, Rect.Top);

joshua_jia · 2003-09-12

setcursorpos(0,0); 就可以了

gfh21cn · 2003-09-12

如果FORM2不是自己的 可以通过API函数来显示 SetWindowPos

青云 · 2003-09-12

如何撤消对鼠标的锁定呢？

QSmile · 2003-09-12

to 青云   SetxxxxRect(nil); 记不清了

fftou · 2003-09-12

Var Hand: THandle;     GWI: TagWindowInfo;     P: TPoint; Begin  Hand := FindWindow(nil,'应用程序的标题');  GetWindowInfo(Hand,GWI);  P.X := GWI.rcWindow.Left;  P.Y := GWI.rcWindow.Top;  SetCursorPos(P); End;

ZiDing · 2003-09-16

GetWindowRect Then SetCursorPos

dhzy · 2003-09-17

多人接受答案了。

如何将鼠标定位到窗体的左上角(窗体的0,0位置)(50分)

dhzy

Unregistered / Unconfirmed

gfh21cn

Unregistered / Unconfirmed

gfh21cn

Unregistered / Unconfirmed

dhzy

Unregistered / Unconfirmed

dhzy

Unregistered / Unconfirmed

gfh21cn

Unregistered / Unconfirmed

gfh21cn

Unregistered / Unconfirmed

dhzy

Unregistered / Unconfirmed

angelgekko

Unregistered / Unconfirmed

joshua_jia

Unregistered / Unconfirmed

gfh21cn

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

fftou

Unregistered / Unconfirmed

ZiDing

Unregistered / Unconfirmed

dhzy

Unregistered / Unconfirmed

Similar threads