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(captionf) = 0 then
      begin
        lagi := true;
      end
  end
else
  begin
    for i…