Редактор привязок и TStringGrid

[krab]

На форме расположена таблица StringGrid1 с максимум 10 строками с информацией. Если настроить привязку границ StringGrid1 к границам формы, при разворачивании формы в таблице будет огромное незаполненное пространство.

Как сделать, чтобы размеры формы можно было увеличивать до тех пор, пока в незаполненное пустое место в таблице не превышает примерно 3-4 строки, а уменьшать до тех пор, пока видно хотя бы 2-3 строки с информацией?

При этом геометрические размеры таблицы и, соответственно, формы (при таких условиях, как описанные), зависят от настроек в Windows размеров и начертаний шрифтов.

Пример формы:

[azatsh]

Используй событие формы OnResize
ставишь условие что если размеры формы не соответствуют заданному интервалу то возвращаешь предыдущее значение размеров

[krab]

Используй событие формы OnResize
ставишь условие что если размеры формы не соответствуют заданному интервалу то возвращаешь предыдущее значение размеров

при этом не будет рывков, увеличение размера и прекращение изменения будет плавным?

[azatsh]

проверил вот так вот

Код: Выделить всё

if form1.Height>200 then form1.Height:=200;
  if form1.Width>200 then form1.Width:=200;

работает нормально