[Delphi] Drag & Drop dla TImage

0

No właśnie...
Chciałem zrobić cos w stylu pulpitu:
Są ikonki -TImage- , tylko mam problem z Drag & Drop:

Wszystko działało (używałem OnMouseMove: Image1.Left:=Mouse.Cursor.......), póki
nie dałem procedurki do OnDblClick.
Teraz jest Drag, ale nie ma Drop {glowa}

HELP !!!!

Dzięki {browar} --

0

Aby zrobic dobry drag&drop nie wystarczy oprogramowac tylko zdarzenie OnMouseMove, trzba jeszcze onmousedown i onmouseup. Jesli chcesz to moge podac zrodlo.--Pozdrawiam
Ojciec (Delphi/C++)

0

to bedzie mniej wiecej tak:

P1,P2:TPoint;

w onmousedown

GetCursorPoz(P1);

W onmousemove:

if ssLeft in Shift then begin
GetCursorPos(P2);
Image1.Left:=Image1.Left+(P2.x-P1.x);
Image1.Top:=Image1.Top+(P2.y-P1.y);
GetCursorPos(P1);
end;

w onmouseup wszystko co ma sie stac przy "puszczeniu" obrazka.

Przy takim sposobie przenoszony komponent moze troche migac szczegolnie przy kolorowym tle dlatego dobrze jest ustawic wlasciwosc formularza DoubleBuffered na True.
--Pozdrawiam
Ojciec (Delphi/C++)

1 użytkowników online, w tym zalogowanych: 0, gości: 1