Delphi程序设计中的鼠标控制(3)

{$R *.dfm}

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer); begin

if obj = 'btn' then begin

button1.Left :=x; button1.Top :=y;

button1.Parent :=panel2; end;

if obj = 'edit' then begin

edit1.Left :=x; edit1.Top :=y;

edit1.Parent :=PANEL1; end;

if obj='img' then begin

image1.left :=x; image1.Top:=y;

image1.Parent :=panel1; end;

memo1.Lines.Add('Panel1 - drop' +IntToStr(x)+'='+IntToStr(y)); end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin

Accept :=true;

Memo1.Lines.Add('Panel1 - over' +IntToStr(x) +'='+IntToStr(y)); end;

procedure TForm1.Panel2DragDrop(Sender, Source: TObject; X, Y: Integer); begin

if obj = 'btn' then begin

button1.Left :=x; button1.Top :=y;

button1.Parent :=panel2; end;

if obj = 'edit' then

begin

edit1.Left :=x; edit1.Top :=y;

edit1.Parent :=PANEL2; end;

if obj='img' then begin

image1.left :=x; image1.Top:=y;

image1.Parent :=panel2; end;

memo1.Lines.Add('Panel2 - drop' +inttostr(x)+'='+inttostr(y)); end;

procedure TForm1.Panel2DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin

Accept :=true;

Memo1.Lines.Add('Panel2 - over' +IntToStr(x) +'='+IntToStr(y)); end;

procedure TForm1.Button1StartDrag(Sender: TObject;var DragObject: TDragObject); begin

obj :='btn';

// ShowMessage('Start Drag'); end;

procedure TForm1.Image1StartDrag(Sender: TObject;var DragObject: TDragObject); begin

obj :='img'; end;

procedure TForm1.Edit1StartDrag(Sender: TObject;var DragObject: TDragObject); begin

obj :='edit'; end; end.