Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c