windows7 下SetCursorPos函数的问题

[caonumber]

软件的设计：点击Button按钮Show一个窗口A。并用SetCursorPos(Self.Left+150,Self.Top+58);函数把鼠标移动到A窗口的指定位置
设计结果：WinXP下，鼠标移动到指定的A窗口位置。并且鼠标移动正常
WINDOWS7下：鼠标移动到指定的A窗口位置，但是移动鼠标，鼠标会直接跳动到按钮处。
问题：不明白WIN7下为什么会这样子。

[caonumber]

[Quote=引用 141 楼 lght 的回复:]
Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.Show;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
SetCursorPos(S……
[/Quote]
莫非真是我的虚拟机的问题。但是不应该的啊

[weiyingsong0221]

-*- encoding: gb2312 -*-
import re
s = '<Font color=red>红色字<font color=blue>蓝色字</font><Font color=red>红色字</font>红色字结束</font>'
reg = re.compile(r'(<font.*?</font>)')
for si in reg.findall(s):
print si

[jhxxwzf]

是个好东西学习了

[harizu76]

我也是来学习的

[caonumber]

[Quote=引用 132 楼 lght 的回复:]
Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
SetCursorPos(Self.Left+150,Self.Top+58);
mouse_event(MOUSEEVENTF_LEFTDOWN,Self.Left+15……
[/Quote]
我的代码基本跟你的一致，只是Form2 := TForm2.Create(Self);我是在主窗口就创建了的。此代码在WINXP下使用很正常。但是在WIN7下就不正常了。你是在WIN7下测试了的吗？

[logisitcs]

不错，学习了，谢谢楼主

[ohyes13]

vvv

[caonumber]

可以结贴了。还真是我的虚拟机的问题。昨晚我在一台正规安装了WIN7的电脑上测试，一切正常哈。看来很多东西还不能用虚拟机来测试的啊。真实误主啊。

[a19251331]

真够复杂的

[ITCore168]

虚拟机就是虚拟的，只有到实体机上测试才能确定最后结果。

[jokey_yi]

过来学习滴

[yepeng527685727]

wewewewewewwew

[lyqmyw]

个人感觉这是windows的一个bug

[pli0825]

顶顶顶顶顶顶顶顶顶的的。

[shihunjiangjie]

高手如云啊

[jini99]

顶一个~

[程序小海]

学习中……

[zen_z]

学习ING。。。。

[xiaoxiangqing]

还没这样试过，等下试下先

[SonicX]

鼠标位置是从整个桌面开始计算的
Self是你自己form的坐标要转换成桌面坐标
模拟鼠标移动的代码

function DoEvents:Bool;
var
 aMsg:TMsg;
begin
  while PeekMessage(aMsg,0,0,0,PM_REMOVE) do begin
    if(aMsg.message = WM_QUIT) then begin
      Result:=False;
      Exit;
    end;
    TranslateMessage(aMsg);
    DispatchMessage(aMsg);
  end;
  Result:=True;
end;

procedure WaitTime(const iSec:DWORD);
var
  iTimeOut:DWORD;
begin
  iTimeOut:=GetTickCount + iSec ;
  while (iTimeOut > GetTickCount) do begin
    Sleep(1);
    if not DoEvents then Break;
  end;
end;

procedure MouseMovePos(lPoint:TPoint);
var
 fPoint:TPoint;
begin
 GetCursorPos(fPoint);
 while not((fPoint.X=lPoint.X) and (fPoint.Y=lPoint.Y)) do begin
   if fPoint.X>lPoint.X then Dec(fPoint.X);
   if fPoint.X<lPoint.X then Inc(fPoint.X);
   if fPoint.Y>lPoint.Y then Dec(fPoint.Y);
   if fPoint.Y<lPoint.Y then Inc(fPoint.Y);
   SetCursorPos(fPoint.X,  fPoint.Y);
   WaitTime(1);
 end;
 SetCursorPos(fPoint.X,  fPoint.Y);
end;
///////////////////////
//使用
var
lPoint:TPoint;
begin
lPoint.x:=10;
lPoint.y:=10;
MouseMovePos(lPoint);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
WaitTime(1);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;