|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.04.2007, 14:15 | #1 |
Форумчанин
Регистрация: 31.12.2006
Сообщений: 114
|
Визуалистика
Как сделать так чтобы по нажатии по кнопке форма изменяла свои размеры и было видно как форма увиличивается
|
20.04.2007, 15:06 | #2 |
Форумчанин
Регистрация: 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; Все.
Не надо ничего усложнять. Все достаточно тривиально.
|
20.04.2007, 15:13 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Можно добавить центрирование
Form1.Left := Form1.Left - dx; Form1.Top := Form1.Top - dy;
Life is too short, play more...
Как правильно задавать вопросы |