Delphi Animasyonlu Form Açılışı!

~~*MeLeK*~~ · 28-01-2008, 12:13

procedure TForm1.Button1Click(Sender: TObject);
begin
// The first part it for the handle of a window the second is if you want it to go negative or positive the last part th the action you want to have like hide then slide out etc enjoy
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;

end.

procedure TForm2.FormShow(Sender: TObject);
begin
AnimateWindow(Self.Handle,250, AW_HOR_POSITIVE or AW_ACTIVATE);
end;

procedure TForm3.FormShow(Sender: TObject);
begin
AnimateWindow(Self.Handle, 250, AW_VER_POSITIVE or AW_ACTIVATE);
end;

procedure TForm4.FormShow(Sender: TObject);
begin
AnimateWindow(Self.Handle,250, AW_CENTER or AW_ACTIVATE);
end;

28-01-2008, 12:13	#1 (permalink)
~~MeLeK~~ Banlandı Üyelik tarihi: 22-11-2007 Nerden: napıcan ziyaretemi geLcen!! Mesajlar: 0 Konular: 2724 Üye No: 11416 Ruh halim: Rep Gücü : 0 Rep Puanı : 0 Rep Seviyesi :	Delphi Animasyonlu Form Açılışı! procedure TForm1.Button1Click(Sender: TObject); begin // The first part it for the handle of a window the second is if you want it to go negative or positive the last part th the action you want to have like hide then slide out etc enjoy 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; end. procedure TForm2.FormShow(Sender: TObject); begin AnimateWindow(Self.Handle,250, AW_HOR_POSITIVE or AW_ACTIVATE); end; procedure TForm3.FormShow(Sender: TObject); begin AnimateWindow(Self.Handle, 250, AW_VER_POSITIVE or AW_ACTIVATE); end; procedure TForm4.FormShow(Sender: TObject); begin AnimateWindow(Self.Handle,250, AW_CENTER or AW_ACTIVATE); end;

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
Form rengini kod ile degistirme	Gu4rD1aN	C ve C++	2	29-03-2008 18:11
saydam form olusturma	qRaLL	Visual Basic	0	29-02-2008 05:05
Fareyi form a hapsetmek	qRaLL	Visual Basic	0	29-02-2008 04:51
Saydam Form	MeLeK	Delphi	0	28-01-2008 12:19
Introlar,Bannerlar ve Animasyonlu Yazı Yapımında Kullanabileceğiniz Programlar..	wanted	Programlar	0	17-04-2007 21:21