我想样一个按钮在MOUSE砰到它的时候就随机的走到别的地方,总之MOUSE永运砰不到它! 有什么好的算法实现! 用getcursorppos取得鼠标位置,然后把按牛的位置定在鼠标位置的外边,就是按牛.top:=鼠标.x + 10 这样子 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var vRect: TRect;begin GetWindowRect(TButton(Sender).Handle, vRect); Mouse.CursorPos := Point(vRect.Left - 1, vRect.Top - 1);end; procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var point: tpoint;begin point := clienttoscreen(x,y); setcursorpos(point.x+100,point.y+100);end; 我想你的意思是这样吧,试一下var vRect: TRect;begin randomize; GetWindowRect(TButton(Sender).Handle, vRect); button2.Left := random(vRect.Left); button2.Top := random(vRect.Top);end; 请教flash中的画图(shape)是怎么做得? 函数返回数组怎么调用啊? DLL开发高手请入,具头痛的问题 请教cxGrid的两个小问题,谢谢~ 怎样用DELPHI设计屏幕广播程序? Delphi中是否有类似Java中的Vector类型? 怎样消除form最小化后起caption定义的怪字符? 急!!!,求救转C问题 100 分 寻有关数据库查询代码,相关网址也好(delphi) 我使用了多线程来对query进行查询,可是还是会出现那个讨厌的sql沙漏 TDbgrid问题:能否只能让它修改数据,不能添加记录? 各位,帮我个忙好不好,帮我找找MS_AGENT的资料好吗?
Y: Integer);
var
vRect: TRect;
begin
GetWindowRect(TButton(Sender).Handle, vRect);
Mouse.CursorPos := Point(vRect.Left - 1, vRect.Top - 1);
end;
Y: Integer);
var
point: tpoint;
begin
point := clienttoscreen(x,y);
setcursorpos(point.x+100,point.y+100);
end;
var
vRect: TRect;
begin
randomize;
GetWindowRect(TButton(Sender).Handle, vRect);
button2.Left := random(vRect.Left);
button2.Top := random(vRect.Top);
end;