Таскаем форму без зацепа за заголовок

  Иной раз возникает необходимость убрать рамку у формы, при создании программной заставки например или для других целей. В таких случаях, свойство BorderStyle у формы устанавливается в bsNone, а это значит отсутствие рамки у формы, то есть отсутствие того за что ее можно перетаскивать мышкой. Как же быть, в таком случае - когда заголовок у формы отсутствует, а перетаскивать ее все-таки нужно?
Нас выручат следующие действия:

 1) Устанавливаем BorderStyle формы в bsNone;

 2) Создаем обработчик событий FormMouseMove на форме и прописываем следующий код:

begin
if ssleft in shift then begin ReleaseCapture; 
Form1.Perform(wm_syscommand, $f012,0); 
end;
end; 

 3) Запускаем наш проект и если вы все записали правильно, то форма без Border будет запросто перемещаться при помощи мыши.