Я не нашел способа сделать

Добавьте следующее определение в секции intarface вашей формы:

procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;

и следующий код в секцию implementaion:.

procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); begin with message do begin MinMaxInfo^.ptMinTrackSize.x := 20; end; end;

Я не нашел способа сделать это в IDE, но во время выполнени приложения можно сделать так:

procedure TForm1.Form1OnCreate(Sender: TObject); begin Width := 50; end;

[001734]


Содержание раздела

---

---