谁有好办法实现用鼠标在form上拖动字符(label)?(75分)

vic · 1999-09-19

如题。 希望越简单越好。^-^

amo · 1999-09-19

在mousemove中 判断鼠标是否按下， 记下每次mouse的位置，用Textout写字符， 下一次同样不过先抹去前一次的字符串。

churchill · 1999-09-19

把Label的DragMode设为dmAutomatic,DragKind设为dkDrag,Form的DockSite设为True, Form的OnDragOver事件可这么写: procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin   ......   with Label1 do   begin     Parent:=Form1;     Left:=x;     Top:=y;   end;   Accept:=True;   ...... end;(鼠标形状不好看,自己解决吧) 另一个办法: procedure TForm1.Label1MouseDown(Sender: TObject; Button:     TMouseButton;Shift: TShiftState; X, Y: Integer); begin   Label1.Tag:=1; end; procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin   Label1.Tag:=0; end; procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); Var   P:TPoint; begin   with Label1 do     if Tag=1 then     begin       P.x:=X;       P.y:=Y;       Left:=Form1.ScreenToClienT(ClientToScreen(P)).X;       Top:=Form1.ScreenToClienT(ClientToScreen(P)).Y;     end; end;

cAkk · 1999-09-19

var SrcX,Srcy:integer //先定义2个全局变量,用于纪录x,y procedure Tform1.LabelMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); begin   label1.tag:=1;   SrcX:=x;   SrcY:=y;; end; procedure Tform1.LabelMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); begin   If label1.tag=1 then //MouseUp的时候，不允许移动     label1.tag:=0; end; procedure Tform1.labelMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin   If label1.tag=1 Then //如果允许移动   begin     label1.Left := X-Srcx+label1.Left;     label1.Top := Y-SrcY+label1.Top;   End; end;

vic · 1999-09-19

多人接受答案了。

谁有好办法实现用鼠标在form上拖动字符(label)?(75分)

vic

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

churchill

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

vic

Unregistered / Unconfirmed

Similar threads