各位，如何在程序运行时移动控件？？(100分)

L

lpzst002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #1

現在的問題是：我現在有一個Timage和一個Tpanel,Timage是放在Tpanel理面，我現在是在
程序運行時，能夠用鼠標按住Timage,能夠使Timage連同Tpanel一同在窗体上移動，
請大家幫幫忙！

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #2

给你个拖动button的参考
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button1.Perform(wm_syscommand,$F012,0);
end;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #3

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Panel1.Perform(wm_syscommand,$F012,0);
end;

 

L

lpzst002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #4

那如果我mouseup的时候要取消移动呢？？？

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #5

mouseup本来就取消了啊 ，控件就停了吗

 

L

lpzst002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #6

多人接受答案了。