Posts

Showing posts from December, 2011

Membuat Animasi Caption Bar Berjalan Menggunakan Delphi

Image
بسم الله الرحمن الرحيم Alhamdulillah, kembali saya mau berbagi ilmu dengan sahabat-sahabat, sederhana saja, ilmunya orang awwam. Tapi semoga bermanfaat, aamiin. Saya akan berbagi trik membuat Animasi Caption Bar pada form delphi, berikut screen shootnya Langsung saja kita menuju coding nya, 1. Deklarasikan variabel dan konstanta berikut yang berwarna merah var   Form1: TForm1;   captionf: string;   lagi : boolean; const   judul = 'Aplikasi Inventory'; implementation {$R *.dfm} 2. Pada events FormOnCreate, ketik coding berikut var   i:byte; begin lagi := false; for i:= 1 to Form1.Width do   begin     Insert(' ', captionf,1);   end; captionf := captionf+judul; end; 3. Tambahkan Objek TTimer yang ada pada tab komponen System, ubah properties Interval menjadi 500, double klik pada objek TTimer kemudian ketik coding berikut: var   i:byte; begin if lagi = false then   begin     Delete(captionf,1,1);     if length(capti