请问如何在delphi中实现图片的拖动？(50分)

雀

雀巢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #1

即将一个Image拖动到另外一个Image或Label中
请高手指教，谢谢！

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #2

image可以拖到label上的啊，你究竟想问什么？

 

Y

yr220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #3

你要拖动的似乎不是image,而是某个标示, 如果能放在DOCK中做,就放在到DOCK中,
如果不行,你的接受对象好像要支持对象拖动,释放,哈哈,抱歉,很长时间不用DELPHI了,
最近回来,一时手痒,胡乱写的,别在意,以后多交流啊.

 

雀

雀巢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-25

• #4

Image是可以拖动到Label中，可这是delphi自带的啊，我要在我的应用程序中实现它，应该怎么做呢

其实应该就是编一个Image的draging吧，只是我不知道怎么编

另外好像Label和Image都是支持拖动和接受拖动的吧.

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-25

• #5

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

这种方法，label控件不支持，你再试一下，图像是完成可以，我试了
可以发分数了吧

 

雀

雀巢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-25

• #6

我这里有点问题，我再看吧，谢谢！