procedure TForm1.FormResize(Sender: TObject);
var h, w:integer;
begin
h:=form1.Height;
w:=form1.Width;
if (h=600) or (h<600) then form1.Height:=600;
if (w=800) or (w<800) then form1.Width:=800;
if (h=791) or (h>791) then form1.Height:=795;
if (w=953) or (w>953) then form1.Width:=960;
end;
Размеры формы (окна)
Сделал программу, которая контролирует размеры формы (окна). Т.е. если окно большое то, всё в поряде, но как форму делаешь меньше по размеру появляются скроллы.
Указал самые минимальные размеры окна, которые должны быть:
Как сделать так, чтобы программа при минимальных размерах окна запрещала его уменьшать???
Я вообщем то сделал, но когда делаешь меньше минимума, то форма просто перерисовывается и становится в минимальные размеры!!!
Вот мой код:
Код:
Как сделать так, чтобы форма не давала изменить свои размеры меньше чем минимум???
использовать свойства Constraints.MinHeight и Constraints.MinWidth формы.
Спасибки огромное. всё сделал и работает усё!!!