Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Размеры формы (окна)

1.9K
26 февраля 2008 года
Cool Xacker
148 / / 06.06.2006
Всем здрасти!!! ;)

Сделал программу, которая контролирует размеры формы (окна). Т.е. если окно большое то, всё в поряде, но как форму делаешь меньше по размеру появляются скроллы.

Указал самые минимальные размеры окна, которые должны быть:
Как сделать так, чтобы программа при минимальных размерах окна запрещала его уменьшать???

Я вообщем то сделал, но когда делаешь меньше минимума, то форма просто перерисовывается и становится в минимальные размеры!!!

Вот мой код:

 
Код:
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;


Как сделать так, чтобы форма не давала изменить свои размеры меньше чем минимум???
257
26 февраля 2008 года
kosfiz
1.6K / / 18.09.2005
использовать свойства Constraints.MinHeight и Constraints.MinWidth формы.
1.9K
26 февраля 2008 года
Cool Xacker
148 / / 06.06.2006
Спасибки огромное. всё сделал и работает усё!!!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог