Question

用delphi7写鼠标移动带动按钮移动

急!!!!
是在事件onmousemove中写谢谢

Answer 1

unit drag2u;

interface

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

type
Tfrmtest = class(TForm)
Button1: TButton;
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
frmtest: Tfrmtest;
tb: TButton;
delx,dely: Integer;
msDown: Boolean;

implementation

{$R *.DFM}

procedure Tfrmtest.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
msDown:=true;
delx:=x;
dely:=y;
end;

procedure Tfrmtest.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
msDown:=false;
end;

procedure Tfrmtest.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if msDown then
begin
tb:=Sender as TButton ;
tb.left:=tb.left+x-delx;
tb.Top :=tb.top +y-dely;
end;
end;

procedure Tfrmtest.FormCreate(Sender: TObject);
begin
msDown:=false;
end;