delphi 运行时拖动控件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    Main1: TImage;
    pnl1: TPanel;
    btn2: TButton;
    procedure btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure pnl1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Main1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btn1Click(Sender: TObject);
    procedure btn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private

    { Private declarations }
    procedure ComponentControl(Control: TControl; Shift: TShiftState;
       X,Y,Precision: integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComponentControl(Control: TControl; Shift: TShiftState; X,
  Y, Precision: integer);
var
  SC_MANIPULATE: Word;
begin
  if (X<=Precision) and (Y>Precision) and (Y<Control.Height-Precision) then
    begin
    SC_MANIPULATE := $F001;
    Control.Cursor   :=   crSizeWE;
    end
  else if (X>=Control.Width-Precision) and (Y>Precision) and (Y<Control.Height-Precision) then
    begin
    SC_MANIPULATE :=   $F002;
    Control.Cursor   :=   crSizeWE;
    end
  else if (X>Precision) and (X<Control.Width-Precision) and (Y<=Precision) then
    begin
    SC_MANIPULATE := $F003;
    Control.Cursor := crSizeNS;
    end
  else if (X<=Precision) and (Y<=Precision) then
    begin
    SC_MANIPULATE := $F004;
    Control.Cursor   :=   crSizeNWSE;
    end
   else if (X>=Control.Width-Precision) and (Y<=Precision) then
     begin
     SC_MANIPULATE     :=   $F005;
     Control.Cursor   :=   crSizeNESW         ;
     end
   else if (X>Precision) and (X<Control.Width-Precision) and (Y>=Control.Height-Precision) then
     begin
     SC_MANIPULATE := $F006;
     Control.Cursor   :=   crSizeNS;
     end
   else if (X<=Precision) and (Y>=Control.Height-Precision) then
     begin
     SC_MANIPULATE     :=   $F007;
     Control.Cursor   :=   crSizeNESW;
     end
  else if (X>=Control.Width-Precision) and (Y>=Control.Height-Precision) then
    begin
    SC_MANIPULATE := $F008;
    Control.Cursor := crSizeNWSE;
    end
  else if (X>5) and (Y>5) and (X<Control.Width-5) and (Y<Control.Height-5) then
    begin
    SC_MANIPULATE := $F009;
    Control.Cursor :=  crSizeAll;
    end
  else
    begin
    SC_MANIPULATE   :=   $F000;
    Control.Cursor   :=   crDefault;
    end;
 if Shift=[ssLeft]   then
    begin
    ReleaseCapture;               //释放鼠标的捕获功能,使之能得到所有鼠标输入!
    Control.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);
    end;

end;

procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ComponentControl((Sender as TControl),   Shift,   X,   Y,   5);

end;

procedure TForm1.pnl1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ComponentControl((Sender as TControl),   Shift,   X,   Y,   5);
end;

procedure TForm1.btn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ComponentControl((Sender as TControl),   Shift,   X,   Y,   5);
end;

procedure TForm1.Main1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ComponentControl((Sender as TControl),   Shift,   X,   Y,   5);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
   ReleaseCapture;

  ShowMessage('');
end;

procedure TForm1.btn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

end.

posted @ 2011-04-13 11:28  许明吉博客  阅读(4514)  评论(0编辑  收藏  举报