Текущий архив: 2003.09.04;
Скачать: CL | DM;
Вниз
Drag&Drop не цепляясь за шапку окна. Найти похожие ветки
← →
BuTyc (2003-08-22 06:43) [0]Как реализовать сабж? Может вопрос конечно и глупый, но нужно убрать шапку окна, и сделать возможным таскать окно цепляясь не за шапку а за само окно.
← →
Lina (2003-08-22 06:46) [1]Обрабатывай MouseDown:
ReleaseCapture;
SendMessage(Handle,WM_SysCommand,$F012,0);
← →
Rouse_ © (2003-08-22 06:47) [2]
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND, $F012, 0);
end;
Желаю успехов
Страницы: 1 вся ветка
Текущий архив: 2003.09.04;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.014 c
