SplashForm.OnShow:=[]

[Volkogriz]

Доброе время суток!!!
Памагите пожалусто обявит событие OnShow в этом коде:

PHP код:

begin
  SplashForm := TForm.create(nil);
  with SplashForm do
   begin

    // Color:=  clFuchsia; 
    BorderStyle := bsNone; 
    Position := poScreenCenter; 
     //TransparentColor:= True;
    ClientWidth := 405; 
    ClientHeight := 310;
   end;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do
 begin
SplashImage.Picture.LoadFromFile('splash.bmp');
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  with SplashForm do
   begin
     Show;
     for I := 1 to 1 do
      begin
       Repaint;
       Sleep(5000);
      end;
     Close;
     Free; 
   end; 


В событии OnShow надо обявить 'AnimateWindow(Handle, 500, AW_CENTER or AW_SLIDE);'
Шоб я не делал не выходит не .........!!!
Сплошные ошибки!!
За рание блогодарен !!!
С Уважением Volkogriz !!!

[BOBAH13]

Чего Вы хотите здесь добиться ? Конечно стиль написания поражает

[Volkogriz]

BOBAH13 добиться анимации!
С Уважением Volkogriz !!!