Открытие формы с анимациейDelphi , Программа и Интерфейс , Размеры и ПоложениеОткрытие формы с анимацией
Оформил: DeeCo 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; Статья Открытие формы с анимацией раздела Программа и Интерфейс Размеры и Положение может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Размеры и Положение ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |