delphi 编程技巧

源代码在线查看: 在delphi应用程序中拖动控件 (2000年12月26日).txt

软件大小: 774 K
上传用户: zyhunicom
关键词: delphi 编程技巧
下载地址: 免注册下载 普通下载 VIP

相关代码

				在Delphi应用程序中拖动控件 (2000年12月26日) 
				
				本站更新  分类:   作者:徐州 张海峰  推荐:   阅读次数:455  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				
				
				
				  在应用程序的开发中,常常要将某些控件对象(如标签)用鼠标选中后进行拖动操作,用以改变控件的位置,
				在Delphi中如何实现这一功能呢?笔者想了一个方法:通过在 public 中定义全局变量用以跟踪 鼠标在移动和
				拖动控件时的坐标,然后在拖动结束时将鼠标的坐标值赋给控件的 TOP和LEFT属性,以达到拖动的目的。
				
				  举例如下:创建一个 Panel,再创建一个Label,通过编程使控件 Lable 可以在 Panel 中被拖放到任意位
				置。以下是具体实现过程:
				
				  1. 首先做一下准备工作,运行Delphi3.0,进入集成开发环境,在 File 菜单中选择New Application 。
				  2. 在Form1中创建对象 Panel1,并在 Panel1 中创建另一对象 Label1。
				  3. 选中Label1,修改其下列属性的值: 
				属性值:
				Caption :标签移动测试!
				Cursor :crHandPoint
				DragCursor:crDrag
				DragMode :dmAutomatic
				  4.在程序的开头部分声明全局变量 x_panel,y_panel,x_label,y_label,其中,x_panel,y_panel :
				鼠标在Panel1上的坐标;x_label,y_label :鼠标在label1上的坐标。
				  注:这里分别获取在Panel1和Label1上的坐标是为了更精确地计算出Label1实际的移动距离。
				  5.在Panel1的OnDragOver 和OnMouseMove 事件中添加如下代码:
				  x_panel:=X;
				   y_panel:=Y;
				   注:该操作是获得 mouse 在Panel1上的坐标。
				  6.在Label1的OnMouseMove 事件中添加如下代码:
				   x_Labell:=X;
				   y_Label1:=Y;
				   注:该操作是获得 mouse 在Label1上的坐标。 
				  7.在Label1的OnEndDrag 事件中添加如下代码:
				   label1.left :=x_panel-x_label;
				   label1.top :=y_panel-y_label; 
				   说明:两者相减是为了求得 label1 实际的移动距离。 
				  8.创建一个对象 Button1 ,并在其 OnClick 事件中添加如下代码:
				   close; //用以关闭应用程序。
				  好了,现在运行程序,测试一下结果。
				  以下是程序源代码,在Delphi3.0、Windows95/98中测试通过。
				unit test_move;
				interface
				uses
				Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
				StdCtrls, ExtCtrls;
				type
				TForm1 = class(TForm)
				Panel1: TPanel;
				Label1: TLabel;
				Button1: TButton;
				procedure Button1Click(Sender: TObject);
				procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
				procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
				State: TDragState; var Accept: Boolean);
				procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
				procedure Label1EndDrag(Sender, Target: TObject; X, Y: Integer);
				private
				{ Private declarations }
				public
				{ Public declarations }
				x_panel,y_panel,x_label,y_label:integer;
				end;
				var
				Form1: TForm1;
				implementation
				{$R *.DFM}
				procedure TForm1.Button1Click(Sender: TObject);
				begin
				close;
				end;
				procedure FTorm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;X,Y: Integer);
				begin
				x_panel:=X;
				y_panel:=Y;
				end;
				procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
				State: TDragState; var Accept: Boolean);
				begin
				x_panel:=X;
				y_panel:=Y;
				end;
				procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState;X,Y: Integer);
				begin
				x_label:=X;
				y_label:=Y;
				end;
				procedure TForm1.Label1EndDrag(Sender, Target: TObject; X, Y: Integer);
				begin
				label1.left :=x_panel-x_label; 
				label1.top:=y_panel-y_label; 
				end;
				end.
				 
				 
							

相关资源