在Delphi应用程序中拖动控件

张海峰
1999年 第36期 13版

    在应用程序的开发中，常常要将某些控件对象（如标签）用鼠标选中后进行拖动操作，用以改变控件的位置，在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.
 

 


 