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

← →
Lamer'Ok (2005-08-28 17:11) [0]

Как перетащить окно по экрану, если программа состоит только из клиентской части (т.е. не имеет строки заголовка)?
Стоит учитывать, что по всей площади формы растянут рисунок (Timage), так вот, как перетаскивать форму, когда с зажатой левой кнопкой мыши тянут курсор по экрану?
Вопрос ясен?

← →
Antonn © (2005-08-28 17:41) [1]

procedure TSkin_Form._MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE : Longint = $F012; begin if Button <> mbRight then begin ReleaseCapture; SendMessage(((Sender as TImage).Parent as Tform).Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); end; // ^ тут наверно надо поменять, я из проекта выдернул, сам не проверял end; end;

Как перетащить форму? Найти похожие ветки