Drag and drob

← →
Gizza © (2006-06-25 19:40) [0]

Доброго времени суток...
Ни когда не понимал как это работает... ;)

Вообщем, на Form1 есть Image1. Надо чтобы при перетаскивании Image1 перетаскивалась вся форма.

Всем спасибо.

← →
Noname27 (2006-06-25 22:45) [1]

Я думаю, что надо использовать не Drag and Drop,
а Drag and Dock.

← →
softservice © (2006-06-26 02:58) [2]

> Вообщем, на Form1 есть Image1. Надо чтобы при перетаскивании
> Image1 перетаскивалась вся форма.

Использовать сообщение WM_MOUSE_DOWN.

← →
PSPF2003 © (2006-06-26 12:25) [3]

==================================================
procedure TFastForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
Sc_dragmove = $F012;
begin
FormStyle := fsStayOnTop;
ReleaseCapture;
Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
end;
==================================================

Drag and drob Найти похожие ветки