Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 20000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2007, 13:15   #1
niva622
Форумчанин
 
Регистрация: 31.12.2006
Сообщений: 114
По умолчанию Визуалистика

Как сделать так чтобы по нажатии по кнопке форма изменяла свои размеры и было видно как форма увиличивается
niva622 вне форума Ответить с цитированием
Старый 20.04.2007, 14:06   #2
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 16.04.2007
Сообщений: 298
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
const
dx = 50; //шаг по ширине
dy = 20; //шаг по высоте
begin
if Form1.Width <= Screen.Width then //разрешение экрана по ширине
Form1.Width := Form1.Width + dx;
if Form1.Height <= Screen.Height then
Form1.Height := Form1.Height + dy;
end;

Все.
Не надо ничего усложнять. Все достаточно тривиально.
Shuraken вне форума Ответить с цитированием
Старый 20.04.2007, 14:13   #3
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Можно добавить центрирование

Form1.Left := Form1.Left - dx;
Form1.Top := Form1.Top - dy;
Alex21 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск



Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS