请问delphi中如何实现image的实时拖放(50分)

B

bexin28

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #1

请问delphi中如何实现image的实时拖放，鼠标拖动是图片要跟着动。

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #2

Form1.DockSite := true;
Form1.DragKind := dkDrag;
Form1.DragMode := dmManual;

Image1.DragKind := dkDock;
Image1.DragMode := dmAutomatic

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #3

然后再加上这段程序：
procedure TForm1.Image1EndDock(Sender, Target: TObject; X, Y: Integer);
var
pt :TPoint;
begin
if Image1.Floating then
begin
pt := self.ScreenToClient(Image1.ClientToScreen(Point(0,0)));
Image1.parent := self;
Image1.Top := pt.y;
Image1.Left := pt.x;
end;
enda

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #4

怎么样？可以吧？我以前试过　可以的

 

B

bexin28

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-29

• #5

谢谢