[Cracer]

Доброго времени суток =)
Вобщем есть форма, и т.к. дизайн не позволяет пришлось поставить Border.Style в значение None. Подскажите пожалуйста, как теперь сделать чтобы форму можно было перетаскивать?

[lmikle]

Обрабатывай события OnMouseDown, OnMouseUp и OnMouseMove.
На первое выставляешь внутренний флаг, на второе его снимаешь, на третье, если флаг выстален, двигаешь форму.

[Cracer]

lmikle это все очень хорошо, но не могли бы вы привести пример, исходник чтоли, а то моих знаний на понятие вашего поста "на слух" нехватает

[AND_REY]

Вот простой пример:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;

[Cracer]

Большое спасибо

[s0Creator]

вот еще варианты:
http://delphisources.ru/forum/showpo...91&postcount=7
http://www.delphisources.ru/forum/showthread.php?t=4082&highlight=%EF%E5%F0%E5%EC%E5 %F9%E5%ED%E8%E5+%F4%EE%F0%EC%FB