Перетаскиваем форму без зацепа за заголовок (за любую часть формы) в Delphi
Свойство BorderStyle у формы устанавливается в bsNone, а это значит отсутствие рамки у формы, то есть отсутствие того за что ее можно перетаскивать мышкой. Как же быть, в таком случае — когда заголовок у формы отсутствует, а перетаскивать ее все-таки нужно?
1) Устанавливаем BorderStyle формы в bsNone;
2) Создаем обработчик событий FormMouseMove на форме и прописываем следующий код:
|
1 2 3 4 5 6 7 |
begin if ssleft in shift then begin ReleaseCapture; Form1.Perform(wm_syscommand, $f012,0); end; end; |