Membuat Animasi Caption Bar Berjalan Menggunakan Delphi
بسم الله الرحمن الرحيم 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 ...