Перемещение формы

[Bigtyoma]

Здравствуйте, у меня возникла проблема, у меня в программе форма находиться в углу, где трей(это для того чтоы на любом разрешении она всегда была в углу), вот такой код:

Form1.Left:=Screen.Width - Form1.Width;
Form1.Top:=Screen.Height - Form1.Height;

подскажите мне, как можно сделать чтобы форма перемещалась, или какой нибудь другой код чтобы форма была в углу, но можно было её передвигать по своему усмотрению

[oleg kutkov]

Честно говоря не очень понял Ваш вопрос.
У вас форма не перемещается стандартными средствами в следствие того, что у нее borderstyle = none ? Или по какой то другой причине ?

[Stilet]

НАверное автор хочет двигать форму схватив ее мышой в любом месте формы?

[Ntlegend]

посмотри эту програмку.. там реализовано перетаскивание формы мышью за любое место.. сохранение и чтение из файла параметров местоположения окна и параметров шрифта..

[Dj_smart]

Помоему всё проще делается
На OnMouseDown по тому месту, что хотите двигать:

ReleaseCapture;
perform(WM_SysCommand, $F012, 0);

Если нужно "растягивать" форму, то -
Вправо

ReleaseCapture;
Perform ( WM_SYSCOMMAND, SC_SIZE + HTRIGHT - 9, 0 );

Влево

ReleaseCapture;
Perform ( WM_SYSCOMMAND, SC_SIZE + HTLEFT - 9, 0 );

Вверх

ReleaseCapture;
Perform ( WM_SYSCOMMAND, SC_SIZE + HTTOP - 9, 0 );

Вниз

ReleaseCapture;
Perform ( WM_SYSCOMMAND, SC_SIZE + HTBOTTOM - 9, 0 );

Вроде так

[Bigtyoma]

Сообщение от Dj_smart

На OnMouseDown по тому месту, что хотите двигать:

ReleaseCapture;
perform(WM_SysCommand, $F012, 0);

ну это не всегда работает, вот у меня например на форме RzBorder он не перемещает, а вот по коду из приложения Cloc всё работает нормально)

[Ntlegend]

есть форма, в ней обрабатываем события маузДовн, маузМув, маузАп, на форме есть компоненты (в программе Clok у меня там 3 лейбла) у них обрабатываем те же события..
чтобы по 100 раз не писать одно и то же пришем сначала обработчик событий (написаных выше) формы потом выделяем все компоненты и в инспекторе обьектов на вкладке Events выставляем для компонентов тот же обработчик события что и у формы.. надеюся меня поняли.. а кто не понял не поленитесь пошевелить пальцами и посмотреть как это реализовано в приграмме Cloc..

[Casper-SC]

Вообще никаких проблем:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION,0);
end;