Форма без заголовка - словно еж! Взять не за что.

← →
Lord BDV (2002-05-09 10:40) [0]

Действительно, по некоторым причинам мне пришлось сделать форму с bsNone, т.е. без заголовка и границ. Таким образом, пользователь не может ее таскать по экрану.

На форме у меня есть определенная прямоугольная облась (напримен - [x1,y1] - [x2,y2] ), предназначенная для захвата формы.
Как сделать так, чтобы пользователь мог таскать мою форму по экрану, хватая ее за эту область?

Заранее спасибо!

← →
Pat © (2002-05-09 11:27) [1]

Перемещение форы за TPanel:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin if button=mbleft then begin ReleaseCapture; perform(WM_SysCommand, SC_DragMove, 0); end; end;

Форма без заголовка - словно еж! Взять не за что. Найти похожие ветки