- Регистрация
- 9 Май 2015
- Сообщения
- 1,551
- Баллы
- 155
Иной раз возникает необходимость убрать рамку у формы, при создании программной заставки например или для других целей. В таких случаях,
свойство BorderStyle у формы устанавливается в bsNone, а это значит отсутствие рамки у формы, то есть отсутствие того за что ее можно
перетаскивать мышкой. Как же быть, в таком случае - когда заголовок у формы отсутствует, а перетаскивать ее все-таки нужно?
Нас выручат следующие действия:
1) Устанавливаем BorderStyle формы в bsNone;
2) Создаем обработчик событий FormMouseMove на форме и прописываем следующий код:
3) Запускаем наш проект и если вы все записали правильно, то форма без Border будет запросто перемещаться при помощи мыши.
свойство BorderStyle у формы устанавливается в bsNone, а это значит отсутствие рамки у формы, то есть отсутствие того за что ее можно
перетаскивать мышкой. Как же быть, в таком случае - когда заголовок у формы отсутствует, а перетаскивать ее все-таки нужно?
Нас выручат следующие действия:
1) Устанавливаем BorderStyle формы в bsNone;
2) Создаем обработчик событий FormMouseMove на форме и прописываем следующий код:
Код:
begin
if ssleft in shift then
begin
ReleaseCapture;
Form1.Perform(wm_syscommand, $f012,0);
end;
end;