Teks berjalan di Statusbar, Judul Form, atau di Judul Aplikasi di Delphi

Teks berjalan di Statusbar, Judul Form, atau di Judul Aplikasi di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Agar Teks berjalan di Statusbar,Judul Form,atau di Judul Aplikasi di Delphi . Kalo Ingin supaya teks berjalan di Statusbar, Judul Form, atau di Judul Aplikasi,mungkin kalo dengan label tau sabagainya sudah pada biasa tapi bagaimana jika ingin si Teks itu berjalan di statusbar atau di Judul form ? coba gunakan Listing dibawah ini, dah lama pengen posting ini itu tentang Listing" delphi tapi karena bnyak kesibukan jadi jarang menyempatkan diri :D , langsung saja liat" deh nih :
Pake atau tambahkan komponen Timer.

1. Teks Berjalan di Statusbar

procedure TFMenu.Timer1Timer(Sender: TObject);
var judul:string;
begin
judul:=StatusBar1.Panels[2].Text;
judul:=Judul+Judul[1];
Judul:=copy(judul,2,length(judul)-1);
StatusBar1.Panels[2].Text:=Judul;
end;
procedure TFMenu.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[2].Text:='Selamat Datang anda sedang berada dikawasan daerah bebas roko :D !!    ';
end;

=========================================== :
2. Teks Berjalan di Judul Form

procedure TFMenu.Timer1Timer(Sender: TObject);
var judul:string;
begin
judul:=caption;
judul:=Judul+Judul[1];
Judul:=copy(judul,2,length(judul)-1);
caption:=Judul;
end;

procedure TFMenu.FormCreate(Sender: TObject);
begin
caption:='Selamat Datang anda sedang berada dikawasan daerah bebas roko :D !!    ';
end;

=========================================== :
3. Teks Berjalan di Judul Aplikasi

procedure TFMenu.Timer1Timer(Sender: TObject);
var judul:string;
begin
judul:=Application.Title;
judul:=Judul+Judul[1];
Judul:=copy(judul,2,length(judul)-1);
Application.Title:=Judul;
end;

procedure TFMenu.FormCreate(Sender: TObject);
begin
Application.Title:='APLIKASI   ';
end;

Semua Listing program yang diPosting tentunya sudah dicoba, jika ada error silahkan perhatikan lagi kodeya.

Semoga bermanfaat !!

Share :