这样的程序该怎么做? 我想要的效果是当鼠标准备点击button1时,button1立即跑到别的地方,而button2则移动到button原先的位置,这样的程序该怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);varPos:Trect;beginPos:=button1.BoundsRect;button1.BoundsRect:=button2.BoundsRect;button2.BoundsRect:=pos;end; 这个东东用DOCK功能来做再适合不过了 请问如何在MSDN网站中找到一个win32 api 的详细说明,比如PeekMessage? Tstringlist问题 大批量的数据(在客户端的文本文件中)用什么方法导入SQL Server中会快些? 关于TPdf不能第二次打开*.pdf的文件? WISE打包问题 FastReport套打如何实现? 动态创建的控件的事件应该写在哪里啊? 在线急等 大家帮帮忙~~谢谢 SOS!!!关于在DBChart中加入线条的问题 寻求QuickReport3以上版本 for Delphi3 的源代码或者安装包? 向高手求助 關於 ComboBox 控件高度的問題。 怎样将记录结构写入BUF中?
var
Pos:Trect;
begin
Pos:=button1.BoundsRect;
button1.BoundsRect:=button2.BoundsRect;
button2.BoundsRect:=pos;
end;