Plz help... Saya lagi bikin aplikasi database kepegawaian, yg sekaligus menyajikan info-info uptodate ttg topik kepegawaian. Saya ingin membuat semacam text marquee (klo di HTML kan ada tuh), di taskbar atau di tempat lain di form juga boleh. Jadi semacam text berjalan di dasar layar spt waktu nonton Liputan 6 gitu, ada newsflash-nya dibawah Ada yg bisa bantu? Klo bisa (ini klo bisa......) tanpa komponen tambahan, dan yg penting tdk membebani performa komputer. Ada yg bisa bantu? Tks buat yg sempat baca post ini, apalagi yg sempat balas.

mungkin ini bisa membantu... animasi geleng kiri-kanan : unit UKiriKanan; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) PnGeleng: TPanel; LGeleng: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure LGelengMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Kiri : Boolean; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin {membuat batas geleng kiri dan kanan} if lGeleng.Left <=0 then kiri:=False; if LGeleng.Left+Lgeleng.Width >=PnGeleng.Width then kiri:=True; {membuat tulisan geleng-geleng} if Kiri=True Then LGeleng.Left:=LGeleng.Left-1 else LGeleng.Left:=LGeleng.Left+1; end; procedure TForm1.LGelengMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin halt; end; procedure TForm1.FormCreate(Sender: TObject); begin Kiri:=True; end; end.

Animasi geleng kiri : unit UAnimKiri; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Timer1: TTimer; LAnimKiri: TLabel; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin //kurangi posisi batas kiri dari label} LAnimKiri.Left:=LAnimKiri.Left-1; //jika jika batas kiri dari label sama dengan panel //kembalikan lagi ke posisinya ke paling kanan panel if (LAnimKiri.Left+LAnimKiri.Width) <= 0 then LAnimKiri.Left:=Panel1.Width; end; end.

http://pascal-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&p=10193>

@vandy mengingatkan aku pada ..goyang inul

Sorry jika nggak nyambung. Tapi ini ada sedikit tip buat tulisan satu-persatu tampil unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,strutils; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var i:integer; CONST DUNIA:STRING='Sistem Informasi Pegawai'; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin i:=1; label1.Caption:=leftstr(dunia,i); end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption:=leftstr(dunia,i); inc(i); if i>length(dunia) then i:=1; end; end.

kl itu brarti nyambung dunk...

Tks utk semua sharing ilmunya. Tapi mungkin saya perjelas lagi: Yg saya inginkan bergerak itu teks-nya(teks-nya berganti-2 jadi seolah2 bergerak), bukan labelnya karena klo label yg digeser, kan akan mentok pas dipinggir form. Contoh: teks1.alingment=right;

teks1:='D'
teks1:='DE'
teks1:='DEL'
teks1:='DELP'
teks1:='DELPH'
teks1:='DELHPI'
teks1:='ELPHI'
teks1:='LPHI' ...dst

Saya sudah baca link berikut http://pascal-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&p=10193> http://pascal-id.org/dpr/Article64.pas (tks buat link sebelumnya) Yg jadi masalah adalah teks/berita yg ingin saya buat bergeser tsb terdiri dari beberapa kalimat/teks/berita, contoh:

berita1:='Hari ini hari Senin';
berita2:='Besok hari Selasa';
berita3:='Lusa hari Rabu';

( ada di database MySQL, saya pake Zeoss) Ketika "teks1=berita1" maka selanjutnya berita2 akan dimasukkan ke teks1, contoh:

.
.
teks1:='Hari ini hari Senin';
teks1:='Hari ini hari Senin ===';// '===' sbg separator berita
teks1:='ri ini hari Senin === Be';
teks1:=' ini hari Senin === Bes';
teks1:='ini hari Senin === Beso';
teks1:='ni hari Senin === Besok';
.
.
teks1:='Besok hari Selasa';
.
. dst..

Jadi ketika berita1 sudah ditampilkan semua(karakternya), program akan membaca database berita2 dan mengulangi update teks1 dst... Sory kepanjangan, semoga cukup jelas. Ada yg bisa bantu algoritma(atau code-nya sekalian). Tks rekan2.

walah itu mah guampaaang wakakak mainin aja fungsi copy :mrgreen:

lebih gampang lagi pake variabel TStringList.......he...he.....he.......... mungkin contoh nya seperti ini ya................. contoh isi teks lihat pada file teksberjalan.kofa