Minggu, 06 November 2011

Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7

Selamat siang agan-agan.Akhirnya posting lagi , yuuhuuu !! Setelah beberapa hari terakhir sakit dan di sibukkan dengan persiapan launching Pujasera Family Kuliner akhirnya saya bisa posting lagi.Dan pada postingan kali ini , saya akan membahas mengenai Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7.
Yuph , efek teks berjalan dengan warnanya yang berubah-rubah.Lumayan sebagai pemanis aplikasi yang anda buat.Buka Delphi 7 anda lalu tambahkan component TPanel dan TTimer pada form1.Ketikan kode berikut pada timer1 event onTimer.

procedure TForm1.Timer1Timer(Sender: TObject);
var a,b,c : String;
begin
  a := Panel11.Caption; 
  b := copy(a,1,1);
  c := copy(a,2,length(a));  //kode agar teks berjalan
  Panel1.Caption := c+b;

  if Panel1.Font.Color = clblack then
    begin
      Panel1.Font.Color := clgreen;
    end
  else
    if Panel1.Font.Color = clgreen then
      begin
        Panel1.Font.Color := clyellow;
      end
  else
    if Panel1.Font.Color = clyellow then
      begin
        Panel1.Font.Color := clred;
      end
  else
    if Panel1.Font.Color = clred then
      begin
        Panel1.Font.Color := clblue;
      end
  else
    begin
      Panel1.Font.Color := clblack;
    end;
end;

Beres deh.Jalankan aplikasi anda lalu lihat efek teks berjalan pada caption Panel1.Sekian untuk tutorial kali ini , semoga bermanfaat.

Simak Juga Tutorial Lainnya:

6 komentar:

Seo Service mengatakan...

Timakasih,sangat membantu, smoga anda banyak rejeki,amin

adi saputra mengatakan...

Bagus banget artikelnya,.
makasih dah berbagi..

Bung Penho mengatakan...

pas nih dapet artikel tentang delphi disini. gue lagi belajar delphi 7 juga. permisi menyimak artikelnya

Pengobatan herbal untuk kanker kelenjar getah bening mengatakan...

artikel yang sangat bagus nie gan,,,,,,,,

GAMER BOY mengatakan...

FREE DOWNLOAD SEDUCE ME AND OTHER SEX GAMES ADULT 18+ FOR PC FULL VERSION LATEST VERSION COMPRESSED 18+ DOWNLOAD FROM HERE-->>>> www.argames786.blogspot.com

GAMER BOY mengatakan...

DOWNLOAD IDM LATEST VERSION 6.16 WITH 1 YEAR SERIAL KEY 50% INCREASE IN DOWNLOADING SPEED DOWNLOAD FREE FROM HERE-->>> www.icoregames.blogspot.com

DOWLOAD WIN 7 AND WIN 8 ACTIVATED SETUPS FULL VERSIONS DOWNLOAD FREE FROM HERE-->>> www.copyrightgames.blogspot.com

Posting Komentar