我想做一个可以拖动的Button，我重载了CButton，可是。。。。。。。。

[leojay]

我想做一个可以拖动的Button，我重载了CButton，在OnLButtonDown中写了 SetCapture();可是我在OnMouseMove中的MoveWindow语句中应该怎样写才会使得我的Button看上去在被我的鼠标拖动呢？大家试试再说，不要乱说。

[frog_sea]

setwindowpos

[jslj]

1、down是记录下当时的位置 pto
2、move，得到当前位置 ptn
3、计算二者差值offset
4、移动控制offset
5、pto = ptn
6、goto 2,直到up

[dog_dog]

study

[leojay]

问题就在这呀，怎么得到button相对于我的窗体的坐标？GetWindowRect是相对屏幕的，GetClientRect，也不行呀。

[leojay]

快一点好不好呀，我急用呀，各位大哥!!!!!!

[flashboy]

clienttoscreen?
screentoclient?

[weixiaohua]

设置两个在VC里应该是Int(Delphi里是Integer)类型的变量,一个BOOLEAN变量.下面的Delphi代码你因该可以看懂吧.
procedure TForm1.epLabel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if IsDown then
begin //Move the Form.
Self.Left := (Self.Left - MoveX) + X;//(Self在这里对应你的Button)
Self.Top := (Self.Top - MoveY) + Y;
end;
end;procedure TForm1.epLabel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IsDown := False;
end;

procedure TForm1.epLabel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IsDown := True;
MoveX := X;
MoveY := Y;
end;

[weixiaohua]

设置两个在VC里应该是Int(Delphi里是Integer)类型的变量,一个BOOLEAN变量.下面的Delphi代码你因该可以看懂吧.
procedure TForm1.epLabel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if IsDown then
begin //Move the Form.
Self.Left := (Self.Left - MoveX) + X;//(Self在这里对应你的Button)
Self.Top := (Self.Top - MoveY) + Y;
end;
end;
procedure TForm1.epLabel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IsDown := False;
end;

procedure TForm1.epLabel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IsDown := True;
MoveX := X;
MoveY := Y;
end;

[iiii]

其实只是坐标之间的转换，当然可以自己慢慢试，都可以试出方法来解决啦。

[thinp]

建议你看看自建窗口类方面的书。其实bottom也是窗口，所有窗口拖动的机理都是一样的

[leojay]

呵呵，这个问题我又是自己解决了，每次我问问题都是我自己解决的，唉，可惜了。