Цитата:
|
Сообщение от Alegun
Странно, а у меня например, процедура контроля изменения размеров формы вот так работает:
Код:
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; Смотрел\проверял специально - инхирайтед в конце работает. |
Странно. У меня и так и так работает...
