Membuat Animasi Teks dengan Delphi7

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 :

NoKomponenNameTextCaption
1Label1lblTeks--
2Timer1Timer1--
3Text11txtTeks--
4Button1cmdRun-&Run

Buat tampilan seperti berikut :

user interface,delphi7,animasi dengan delphi7,animasi,cara membuat animasi,cara membuat animasi dengan delphi7,

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;
    end
end;

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;
implementation


Setelah itu save All dan Run (F9).

BUTUH PROGRAM SESUAI DENGAN RANCANGAN?

Jika kamu mempunyai rancangan program dan menginginkan source code project program itu, saya akan coba membantu membuatnya ataupun konvert bahasa pemrograman.
Silakan SMS ke nomor 0857-6221-9320. Bahasa pemrograman (Android, Delphi 7, Delphi XE, VB 6.0, VB 2010, Java - Netbeans dan PHP). Untuk pertama kali, mohon kirim SMS dengan Format SOURCECODE spasi NAMA KAMU spasi ISI PESAN KAMU dan TUJUAN PEMBUATAN PROGRAM
Insya Allah saya akan mencoba membantu. Harga tergantung kasus dan tingkat kerumitan program.

WAKTU TERBATAS, SEBELUM TERLAMBAT

Download gratis ebook Panduan Membuat Sistem Informasi Akademik Pendataan Nilai Mahasiswa Menggunakan Java Netbeans dan Database MySQL. Ebook Panduan Membuat Sistem Informasi Akademik Pendataan Nilai Mahasiswa Menggunakan Java Netbeans dan Database MySQL
Untuk mengunduh secara GRATIS, klik disini. Semoga bermanfaat.