Mega Code Archive

 

Categories / Delphi / Forms

 

Splash form örneği[animatedwindow]

procedure TForm1.Button1Click(Sender: TObject); begin //Splash form Olarak Kullanın. AnimateWindow(Form1.Handle, 1000, AW_HOR_POSITIVE or AW_HOR_NEGATIVE or AW_Hide); AnimateWindow(Form1.Handle, 1000, AW_HOR_POSITIVE or AW_HOR_NEGATIVE or AW_CENTER); AnimateWindow(Form1.Handle, 1000, AW_HOR_NEGATIVE or AW_HOR_POSITIVE or AW_Hide); AnimateWindow(Form1.Handle, 1000, AW_HOR_POSITIVE or AW_HOR_NEGATIVE or AW_SLIDE); AnimateWindow(Form1.Handle, 1000, AW_VER_POSITIVE or AW_HIde); AnimateWindow(Form1.Handle, 1000, AW_VER_NEGATIVE or AW_SLIDE); end; //cemilsen.sitemynet.com