delphi窗体动态设计 在系统运行时动态更改控件属性

http://hi.baidu.com/xtfnpgy/blog/item/e3eab3e7c95f2239b93820c9.html

在应用程序的开发中，常常要将某些控件对象(如标签)用鼠标选中后进行拖动操作，用以改变控件的位置，在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.