Цитата:
|
Сообщение от poli-smen
Скорее всего вряд ли это поможет. Вот если бы наоборот inherited был в конце, то перенос его в начало могло дать результат...
|
Странно, а у меня например, процедура контроля изменения размеров формы вот так работает:
Код:
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
Msg.MinMaxInfo^.ptMinTrackSize := Point(235, 120);
inherited
end;
а так вот нет:
Код:
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;
Msg.MinMaxInfo^.ptMinTrackSize := Point(235, 120)
end;
Смотрел\проверял специально - инхирайтед в конце работает.