Для того, чтобы создать заставку для приложения, необязательно создавать новую форму, достаточно вывести изображение, показать его, а затем уничтожить. Поместите на форму 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 будут удалены из памяти компьютера и исчезнут с экрана.
Комментарии