Открытие формы с анимацией

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);

procedure Delay(msec: Longint);

var

start, stop: Longint;

begin

start := GetTickCount;

repeat

stop := GetTickCount;

Application.ProcessMessages;

until (stop — start) >= msec;

end;

var

maxx, maxy: Integer;

begin

maxx := form2.Width;

maxy := form2.Height;

form2.Width := 112;

form2.Height := 27;

form2.Left := (Screen.Width — form2.Width) div 2;

form2.Top := (Screen.Height — form2.Height) div 2;

form2.Show;

repeat

if form2.Height (maxy div 5) >= maxy then

form2.Height := maxy

else

form2.Height := form2.Height (maxy div 5);

if form2.Width (maxx div 5) >= maxx then

form2.Width := maxx

else

form2.Width := form2.Width (maxx div 5);

form2.Left := (Screen.Width — form2.Width) div 2;

form2.Top := (Screen.Height — form2.Height) div 2;

delay(30);

until (form2.Width = maxx) and (form2.Height = maxy);

end;

{/codecitation}

Добавить комментарий