запрет расширения формы

[AlexDn]

хочется через WM_NCLBUTTONDBLCLK, но что то не идёт..

 procedure TForm1.WMGetSysCommand(var Message: TMessage);
var  Msg: PMsg;
begin
if Msg^.message = WM_NCLBUTTONDBLCLK then
 begin
   if Msg^.wParam = HTCAPTION then
   begin
    MessageDlg('дв клик ',mtInformation,[mbOk],0);
   end;
  end
  else Inherited;
end;

прошу заранее отключения кнопок и т.п. не предлагать..)

[raxp]

а что задать maxheight и maxwidth форме никак?

[Alex Cones]

Или тип формы задать Single?

[AlexDn]

тип формы менять не хочется.. параметры maxheight и maxwidth и прочие им подобные, вызывают перемещение формы в левый угол, прописывать координаты -мигает форма, что не очень хорошо..

[Alex Cones]

Ну отлавливай сообщение изменения размеров формы.
Вот http://www.programmersforum.ru/showp...51&postcount=9
Вот http://www.programmersforum.ru/showp...40&postcount=8
и Вотъ http://www.programmersforum.ru/showp...42&postcount=6

[AlexDn]

Alex Cones
да, спасибо, есть кое что и интересное, 1 и 2 жаль всю ветку не видно..)
p/s нашёл, спасибо..)

[Alex Cones]

Вот ветка - http://www.programmersforum.ru/showt...651#post189651

Только она Вам целиком не нужна - там про скины речь шла.