Заставка

[Seregakz]

Народ подскажите плз как сделать при запуске пиложия появлялась картинк в центре экрана и потом исчезала и грузилось приложиние?

[vitalik1]

Вот так:

program test;
var
   img: image;
begin
   img:=LoadImage('/logo.png');//загрузка изображения
   DrawImage(img,(getwidth-getimagewidth(img))/2,
         (getheight-getimageheight(img))/2);//отрисовка в центре экрана
   repaint;
   delay(1000); //задержка
   //продолжение работы программы


end.