各位有用过SPY的兄弟,当你们用搜索窗体的时候,只要把那个准星拉到相对应该的窗体上(包括控件),它就会显示这个相对应窗体的HANDLE,
问题如下:
怎么样判断当前点是不是在一个窗体或控件上..比如我是一个BUTTON..
当按钮移动的时候怎么样,让两个按钮之间的联线(是TSHAPE类型)跟着移动.(这个是的主要问题是:当我用,ReleaseCapture;Button.Perform(WM_SYSCOMMAND,$F011,0);这两个来移动一个控件时,联线会变掉...)
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button2.Perform(WM_SYSCOMMAND,$F011,0);
end;
procedure TForm1.Button1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Button1.Caption:=TButton(Source).Caption;
Form1.Canvas.MoveTo(TButton(Source).Left,TButton(Source).Top);
Form1.Canvas.LineTo(TButton(Sender).BoundsRect.Bottom,TButton(Sender).BoundsRect.Right);
end;
问题如下:
怎么样判断当前点是不是在一个窗体或控件上..比如我是一个BUTTON..
当按钮移动的时候怎么样,让两个按钮之间的联线(是TSHAPE类型)跟着移动.(这个是的主要问题是:当我用,ReleaseCapture;Button.Perform(WM_SYSCOMMAND,$F011,0);这两个来移动一个控件时,联线会变掉...)
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button2.Perform(WM_SYSCOMMAND,$F011,0);
end;
procedure TForm1.Button1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Button1.Caption:=TButton(Source).Caption;
Form1.Canvas.MoveTo(TButton(Source).Left,TButton(Source).Top);
Form1.Canvas.LineTo(TButton(Sender).BoundsRect.Bottom,TButton(Sender).BoundsRect.Right);
end;
解决方案 »
- 求 组网技术与配置 的视频教程
- 我们一般都看的看内网的IP和自己主机的IP，但是如何查看路由器外网的IP地址 ？
- 各位，如何在DELPHI6下编译出16位的纯DOS程序？急急急。。。。
- 100分求一具体代码合并文本并累加计算数据
- Query(DBTables)中的SQL语句问题
- 怎么实现弹出一个form，用户必须在这个form close以后才能点其它的form？类似于消息框。
- 如何将一个“变量”变成一个“控件名字”？急！！！
- toolbutton的字体和字体颜色可以变吗？
- 关于qqhash登录器的加密原理？？
- MTS 的问题?
- 求教：在delphi中创建多级目录问题，例如：用户输入一行字符串目录，其实就是默认安装路径创建
- 请教各位大虾？
谢谢老兄弟..
A->B->C->D..
A,B,C,D都是指一个按钮..
我怎么根据联线来记录下这些按钮的联线顺序?
老大你能不能把代码解释一下..然后E一个给我..
我实现的功能 就跟你发给我的EMAIL的一样..呵呵..谢谢你了老大..