Карта сайтаСсылкиКонтакты

Хостинг


Как создать заставку для приложения

PDF Печать
Статьи

Для того, чтобы создать заставку для приложения, необязательно создавать новую форму, достаточно вывести изображение, показать его, а затем уничтожить. Поместите на форму TPanel (Panel1), в нее TImage (Image1) и TTimer (Timer1), помимо остальных компонентов. Свойство Interval компонента Timer1 установите, например, равным 3000 и запишите следующий код в событие OnTimer:

Заставка для приложения

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Free;
  Panel1.Free;
  Timer1.Free;
end;

Через три секунды Image1 и Timer1 будут удалены из памяти компьютера и исчезнут с экрана.


 

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


Защитный код
Обновить