Текущий архив: 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.042 c