| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как переместить форму

pavelnk ©   (2015-06-09 11:55:00) 

Такая проблема, отключил у формы бардюр (bsNone), теперь не знаю как её таскать. Подскажите пожалуйста как мне сделать правильно, чтобы велосипед не изобретать.

---

Игорь Шевченко   (2015-06-09 14:01:00) [1]

> Всё, спасибо, нашёл сам


Не надо такое использовать

---

sniknik   (2015-06-09 12:39:00) [2]

procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
 inherited;
 if Message.Result = HTCLIENT then
   Message.Result := HTCAPTION;
end;

---

Pavelnk   (2015-06-09 12:13:00) [3]

Всё, спасибо, нашёл сам -
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
                Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,$F012,0);
end;

---

Наверх