Неподвижная форма

← →
zumm (2007-03-09 09:55) [0]

Уважаемые, Мастера.
Подскажите как сделать так чтобы
нельзя было форму перемешать
за заголовок.
Заранее благодарен.

← →
Ega23 © (2007-03-09 10:54) [1]

Я бы перехватывал все WM_NCL... , идущие данному окну.

← →
tesseract © (2007-03-09 13:10) [2]

Я бы заголовок просто убрал.

← →
Calibr © (2007-03-09 13:15) [3]

Я бы так сделал:

private procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; ... procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); begin Message.Result := HTCLIENT; end;

← →
zumm (2007-03-09 13:37) [4]

> Calibr © (09.03.07 13:15) [3]
>
> Я бы так сделал:
>

Да так оно работает
но кнопки закрыть, свернуть, развернуть не работают
(ненажимаются)

> но кнопки закрыть, свернуть, развернуть не работают
> (ненажимаются)

const SC_DRAGMOVE = $F012; ... private procedure CMSysCommand(var Message: TMessage); message WM_SYSCOMMAND; ... procedure TForm1.CMSysCommand(var Message: TMessage); begin if Message.WParam <> SC_DRAGMOVE then inherited; end;

Неподвижная форма Найти похожие ветки