| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Drag and drob [D7, XP]
Gizza © (2006-06-25 19:40:00)Доброго времени суток...
Ни когда не понимал как это работает... ;)
Вообщем, на Form1есть Image1. Надо чтобы при перетаскивании Image1перетаскивалась вся форма.
Всем спасибо.
PSPF2003 (2006-06-26 12:25:00) [1]==================================================
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:00) [2]==================================================
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;
==================================================
softservice (2006-06-26 02:58:00) [3]
> Вообщем, на Form1 есть Image1. Надо чтобы при перетаскивании
> Image1 перетаскивалась вся форма.
Использовать сообщение WM_MOUSE_DOWN.
Noname27 (2006-06-25 22:45:00) [4]Я думаю, что надо использовать не Drag and Dro p ,
а Drag and Dock.
| |
