Como Arrastar Uma Figura Com O Mouse? /delphi

MESTRE-ANDREI · 11 de junho de 2004

Oi.

Preciso fazer um form que depois de pronto tenha algumas figuras, e que possa clicar com o mouse em cima delas e arrastar para outra parte do mesmo form.

Como posso fazer isto com no Delphi?

Desde já agradeço pela ajuda de todos.

eddye · 12 de junho de 2004

Vou postar duas maneiras de fazer:

Modo 1

Vá em events do Form, e em OnDragDrop digite:

(Source as TControl).Left := X;
(Source as TControl).Top := Y;

Vá em events do Form, e em OnDragOver digite:

Accept := True;

Na propriedade DragMode do Image mude para dmAutomatic.

O cursor pode ser alterado na propriedade DragCursor.

Modo 2

Na secão Public da sua unit digite isso:

private
{ Private declarations }
public
MouseDownSpot : TPoint;
Capturing : bool;
end;

No evendo OnMouseDown do Image digite:

Capturing := true;
MouseDownSpot.X := x;
MouseDownSpot.Y := Y;

No evendo OnMouseMove do Image digite:

if Capturing then begin
image1.Left:= image1.Left-(MouseDownSpot.x-x);
image1.Top:= image1.Top - (MouseDownSpot.x-y);
end;

No evento OnMouseUp do Image digite:

if Capturing then begin
ReleaseCapture;
Capturing := false;
image1.Left := image1.Left - (MouseDownSpot.x -x);
image1.Top := image1.Top - (MouseDownSpot.y - y);
end;

Modo 1 - Fonte: Internet

Modo 2 - Fonte: DTDelphi 800 dicas

Espero ter ajudado

[]'s eddye