如何在程序运行时，用鼠标移动窗体中控件的位置(80分)

刘永学 · 2001-12-06

如何在程序运行时，用鼠标移动窗体中控件的位置，选中控件，再将之移动到不同的位置

littlefish · 2001-12-06

在onMousedown事件中，触发控件的重绘事件，根据鼠标移动的位置计算控件的坐标。

amsea · 2001-12-06

to littlefish,  foolish~! not a good idea. to 刘永学, search the DFW as mainkey : TformDesigner ,maybe see it.

YNTW · 2001-12-06

参考http://www.delphibbs.com/delphibbs/dispq.asp?lid=760646

Kingron · 2001-12-06

有一个TResizer控件~~~~~~~~~就是你要的。

littlefish · 2001-12-06

不好意思，确实是个笨方法：D

吴下阿蒙 · 2001-12-06

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); {$IFNDEF WIN32} var   pt : TPoint; {$ENDIF} begin   if ssCtrl in Shift then begin     ReleaseCapture;     SendMessage(Button1.Handle, WM_SYSCOMMAND, 61458, 0);    {$IFNDEF WIN32}     GetCursorPos(pt);     SendMessage(Button1.Handle,                 WM_LBUTTONUP,                 MK_CONTROL,                 Longint(pt));    {$ENDIF}   end; end;

yanliang · 2001-12-06

上面的方法好象不行。我试过了......

xiao_min · 2001-12-06

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin releasecapture; button1.Perform(wm_syscommand,$F012,0); end;

刘永学 · 2001-12-07

我昨天忘了说明，我要拖动的控件不是twincontrol类的，而是继承自tgraphcontrol类, xiao_min的法子对twincontrol类的控件来说，是可行的；但对tgraphcontrol类的控件来说 就不行了。 小鱼的法子苯是奔了点，但还是可行的，我期待更聪明的法子！！

dcsdcs · 2001-12-07

来晚了： procedure TForm1.Button1MouseDown(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin releasecapture; button1.Perform(wm_syscommand,$F012,0); end;

free_knight · 2001-12-07

http://www.delphibbs.com/delphibbs/dispq.asp?lid=760646 一样的问题 大富翁以前还有很多同样的问题，去找找

刘永学 · 2001-12-08

都不是我想要的，我已经自己找到答案了。算了，每人平均分配。

xiao_min · 2001-12-08

tgraphcontrol类的要自己算的吧

刘永学 · 2001-12-08

fenfen

如何在程序运行时，用鼠标移动窗体中控件的位置(80分)

刘永学

Unregistered / Unconfirmed

littlefish

Unregistered / Unconfirmed

amsea

Unregistered / Unconfirmed

YNTW

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

littlefish

Unregistered / Unconfirmed

吴下阿蒙

Unregistered / Unconfirmed

yanliang

Unregistered / Unconfirmed

xiao_min

Unregistered / Unconfirmed

刘永学

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

刘永学

Unregistered / Unconfirmed

xiao_min

Unregistered / Unconfirmed

刘永学

Unregistered / Unconfirmed

Similar threads