［分享］移动窗体的小例子

[jinzhili]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Label1DblClick(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var Moving: boolean;
OldX, OldY, OldLeft, OldTop: integer;
{$R *.DFM}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if (Button = mbLeft) then begin
            Moving := True;
            OldX := X;
            OldY := Y;
            OldLeft := X;
            OldTop := Y;
   end;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Moving := false
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if Moving then begin
         OldX := X;
       OldY := Y;
            SetBounds( Left+OldX-OldLeft,
                       Top+OldY-OldTop,
                       Width,
                       Height);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Moving := false;
end;

procedure TForm1.Label1DblClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
  Close;
end;

end.

[donet_delphi]

呵呵 顶起

[苁心開始]

什么呀,乱七八糟...

[苁心開始]

不过,对于一个不懂中文的人来说,当一个中国人能说出"我"(wo)的时候,那也是极了不起滴...

[苁心開始]

所以,在我看来,很了不起,你.