BlogPemrograman : Masih tentang delphi7. Kali ini kita akan membahas bagaimana membuat animasi teks dengan delphi7. Animasi disini yaitu hanya mengubah ukuran huruf saja sampai dengan batas yang telah di tentukan. Komponen terpenting yang kita gunakan yaitu komponen timer yang terdapat dalam tab Win32. Kegunaan timer ini sebenarnya banyak sekali, misalnya membuat animasi, menampilkan jam, tanggal dan lai - lain. Kita hanya akan membahas bagaimana membuat animasi teks.
Sekarang coba siapkan komponen berikut :
| No | Komponen | Name | Text | Caption |
|---|---|---|---|---|
| 1 | Label1 | lblTeks | - | - |
| 2 | Timer1 | Timer1 | - | - |
| 3 | Text11 | txtTeks | - | - |
| 4 | Button1 | cmdRun | - | &Run |
Buat tampilan seperti berikut :
Kemudian ketikkan listing ini pada Tombol Run
procedure TForm2.cmdRunClick(Sender: TObject);
begin if(txtTeks.Text ='') then begin messageDlg('Anda belum mengetikkan teks...',mtError,[mbOK],0); txtTeks.SetFocus; exit; end; lblTeks.Caption := txtTeks.Text ; timer1.Enabled := True;end;
Doble Klik Pada Timer1
procedure TForm2.Timer1Timer(Sender: TObject);
begin num:= num+1; lblTeks.Font.Size:= num; if(num>=30) then begin num:= 8; endend;
Doble Klik Pada Form
procedure TForm2.FormCreate(Sender: TObject);
begin num := 8; Timer1.Enabled:= False; Timer1.Interval:= 80;end;
Buat sebuah variabel Global dengan nama num dengan tipe data integer letakkan persisi di atas implementation
var
Form2: TForm2; num : integer;implementationSetelah itu save All dan Run (F9).

0 komentar:
Post a Comment
Blog-Pemrograman
Terima kasih telah berkunjung kemari. Silahkan tinggalkan jejak anda disini. Atau jika ingin mengikuti atau pun mendapatkan update artikel dari sini, silahkan ikuti kami dengan mengklik pada pada tombol Join this site yang berada di bawah Followers
Note
Please don't leave a SPAM...
Thanks ...