Форум: "Начинающим";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Вниз
Неподвижная форма Найти похожие ветки
← →
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]
>
> Я бы так сделал:
>
Да так оно работает
но кнопки закрыть, свернуть, развернуть не работают
(ненажимаются)
← →
sniknik © (2007-03-09 15:11) [5]> но кнопки закрыть, свернуть, развернуть не работают
> (ненажимаются)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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.062 c
