Текущий архив: 2006.07.16;
Скачать: CL | DM;
Вниз
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;
==================================================
← →
PSPF2003 © (2006-06-26 12:25) [4]==================================================
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;
==================================================
Страницы: 1 вся ветка
Текущий архив: 2006.07.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
