如何用鼠标点中窗体中某个控件(例如TLabel, TPanel等)来使窗体移动，(100分)

小咪 · 1999-08-17

我已经知道如何将窗体设成全部窗体可使用鼠标点中移动的方法，如下：   .   .   . private   procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;   .   .   . implementation procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin   inherited;  { call the inherited message handler }   if M.Result = htClient then  { is the click in the client area?   }     M.Result := htCaption;  { if so, make Windows think it's     }         { on the caption bar.    } end; 但是我想做到如何用鼠标点中窗体中某个控件(例如TLabel, TPanel等)， 来使窗体移动。 哪位高手能触类旁通，指点迷津，在下奉送100分。

Another_eYes · 1999-08-17

var   mousekey: Integer; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;     Shift: TShiftState; X, Y: Integer); var   p: TPoint;   v: Integer; begin   p := panel1.clienttoscreen(point(x,y));   mousekey := button;   v := (p.y shl 16) or word(p.x);   if ssShift in Shift then     mousekey := mousekey or MK_CONTROL   else     mousekey := mousekey and not MK_CONTROL;   if ssCtrl in Shift then     mousekey := mousekey or MK_SHIFT   else     mousekey := mousekey and not MK_SHIFT;   form1.perform(WM_NCHITTEST, mousekey, v); end; procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;     Shift: TShiftState; X, Y: Integer); var   p: TPoint;   v: Integer; begin   p := panel1.clienttoscreen(point(x,y));   mousekey := button;   v := (p.y shl 16) or word(p.x);   if ssShift in Shift then     mousekey := mousekey or MK_CONTROL   else     mousekey := mousekey and not MK_CONTROL;   if ssCtrl in Shift then     mousekey := mousekey or MK_SHIFT   else     mousekey := mousekey and not MK_SHIFT;   form1.perform(WM_NCHITTEST, mousekey, v); end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;     X, Y: Integer); var   p: TPoint;   v: Integer; begin   p := panel1.clienttoscreen(point(x,y));   v := (p.y shl 16) or word(p.x);   if ssShift in Shift then mousekey := mousekey or MK_CONTROL   else mousekey := mousekey and not MK_CONTROL;   if ssCtrl in Shift then mousekey := mousekey or MK_SHIFT   else     mousekey := mousekey and not MK_SHIFT;   form1.perform(WM_NCHITTEST, mousekey, v); end;

nuke · 1999-08-18

呜.....分被抢了.......... ....呜.... 你可以搜索一下嘛，这个问题以前问过的...

srw · 1999-08-19

我有最简单的办法： 想知道请Email我：shangrw@263.net

柳五公子 · 1999-08-19

srw:方便的话贴出来吗，大家共享！！

srw · 1999-08-19

在控件的OnMouseDown事件中记录鼠标的位置lastx:=x;lasty:=y; 在OnMouseMove事件中加入： form1.left:=form1.left+x-lastx;form1.top:=form1.top+y-lasty; 具体程序: procedure TForm1.FormMouseDown(Sender: TObject; Button: TmouseButton;   Shift: TShiftState; X, Y: Integer); Begin     Ylx:=x;       //记录鼠标原来的坐标值     Yly:=y; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TshiftState; X,   Y: Integer); Begin   If ssleft in shift then begin       //按下鼠标左键拖动form1       form1.left:=form1.left+x-ylx;         form1.top:=form1.top+y-yly;      end; end; 将其中的formMousedown和formmousemove换成labelmousedown和 labelmousemove就行了。试好了可得给我加分啊.

DancingAgain · 1999-08-19

//--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components    TLabel *Label1;    void __fastcall Label1MouseDown(TObject *Sender, TMouseButton Button,           TShiftState Shift, int X, int Y);    void __fastcall Label1MouseMove(TObject *Sender, TShiftState Shift,           int X, int Y);    void __fastcall Label1MouseUp(TObject *Sender, TMouseButton Button,           TShiftState Shift, int X, int Y); private:     bool mousedown;     TPoint origin; // User declarations public: // User declarations    __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner)    : TForm(Owner) {    mousedown = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Label1MouseDown(TObject *Sender,       TMouseButton Button, TShiftState Shift, int X, int Y) {    mousedown = true;    origin.x = X;    origin.y = Y; } //--------------------------------------------------------------------------- void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,       int X, int Y) {    if (mousedown) {       Form1->Left = Form1->Left + (X-origin.x);       Form1->Top  = Form1->Top + (Y-origin.y);    } } //--------------------------------------------------------------------------- void __fastcall TForm1::Label1MouseUp(TObject *Sender, TMouseButton Button,       TShiftState Shift, int X, int Y) {    mousedown = false; } //---------------------------------------------------------------------------

YuanLiang · 1999-08-24

我同意Srw的方法,我以前也是这样做的.鼠标按下时设一个标志,并记录鼠标按下 的位置,拖动的时候直接改Left和Top就可以了,鼠标松开的时候清一下标志.很简单. Left:=Left+x-Oldx; Top:=Top+y-Oldy;

小咪 · 1999-08-27

多人接受答案了。

如何用鼠标点中窗体中某个控件(例如TLabel, TPanel等)来使窗体移动，(100分)

小咪

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

nuke

Unregistered / Unconfirmed

srw

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

srw

Unregistered / Unconfirmed

DancingAgain

Unregistered / Unconfirmed

YuanLiang

Unregistered / Unconfirmed

小咪

Unregistered / Unconfirmed

Similar threads