Визуалистика

[niva622]

Как сделать так чтобы по нажатии по кнопке форма изменяла свои размеры и было видно как форма увиличивается

[Shuraken]

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;

Все.

[Alex21]

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

Form1.Left := Form1.Left - dx;
Form1.Top := Form1.Top - dy;