Arsip: Gimana bikin Marquee di form??
more 18 years ago
ibiz
Kakak delphier yth,
Gw baru belajar buat aplikasi client server.
Mohon pencerahan bikin text marquee (teks berjalan) di form...
thxb4,
more 18 years ago
ZeAL
teks berjalan dimananya? di title bar..???
masukin TTimer.. set interval misalnya jadi 500
buat variabel global/public misalnya
Kata : string;
Kata := 'Ini kata saya... ';
var
Tampil, temp : string;
Kata := copy(Kata,2,Length(Kata)) + copy(Kata,1,1);
Form1.Caption := Kata;
more 18 years ago
yayaretina
mungkin yang dimaksud lebih simpel yang kayak gini pa ya...
Timer1 interval 500
procedure TForm1.Timer1Timer(Sender: TObject);
begin
{animasi ke kanan}
Label1.Left:=Label1.Left+1;
if Label1.Left >= panel1.Width then
Label1.Left:=0-Label1.Width;
end;
more 18 years ago
eksant
Ehm..ehm...
"Mbah eksant suka goyang inul, Codingnya gini dul..."
Geser Kanan
procedure TForm1.Timer1Timer(Sender: TObject);
begin
{animasi ke kanan}
LAnimKanan.Left:=LAnimKanan.Left+1;
if LAnimKanan.Left >= panel1.Width then
LAnimKanan.Left:=0-LAnimKanan.Width;
end;
Geser Kanan
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;
Geser Kanan-Kiri
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;
Goyang Inul
procedure TForm1.FormCreate(Sender: TObject);
begin
giyul;giyul;giyul;giyul;
mentul;mentul;mentul;
cek(dhut);
end;
more 18 years ago
LuriDarmawan
kalo tulisan Starboard ini gimana?
dahulu kala beliau pernah nulis artikel
http://pascal-id.org/dpr/Article64.pas
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward
🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- baca data yang belum tampil di lisbox
by megan in Hal umum tentang Pascal Indonesia more 17 years ago - Contoh Program
by andip70 in Paradox more 18 years ago - Visi.B And M.Maker
by saysansay in Tip n Trik Pemrograman more 19 years ago - Interfacing IBM 9068-A03 passbook printer
by _lmz in Network, Files, I/O & System more 18 years ago - ospek
by Alfando in OOT more 17 years ago - instalasi 3rd komponen
by grounders in Hal umum tentang Pascal Indonesia more 19 years ago - tentang suara
by ImanD in Enginering more 19 years ago - Hot Forum ...
by elva_ivana in Hal umum tentang Pascal Indonesia more 16 years ago - Ada Yang Tau Ga source code buat menutup Mozilla
by mankerman in Network, Files, I/O & System more 16 years ago - Kopi Darat Pictures 8 Juli
by yayaretina in OOT more 17 years ago