CARA MEMBUAT TEXT BERJALAN DENGAN DELPHY 7

 CARA MEMBUAT TEXT BERJALAN DENGAN DELPHY 7

cara membuat animasi text berjalan pada delphy 7 sangatlah mudah, yang kita butuhkan hanyalah beberapa menu yang sudah tidak asing lagi seperti form, button dan lain-lain. ok langung saja kita mulai dengan membuat programnya yang pertama adalah

1.  yang pertama adalah buka aplikasi delphy 7 klw belum punya aplikasinya silakan download di http://ubayuzunuraisya.blogspot.com/2012/01/free-download-delphi-7.html

    2. yang kita perlukan hanyalah beberapa menu yaitu

•  form 1
• button 1
• button 2
• label 1
• label 2
• timer 1
• color dialog 1

    3.  setelah itu kita bikin source codenya, yang pertama adalah double klik timer 1 dan masukan code di bawah ini

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;






       4. dan selanjutnya adalah double klik color, color dialog fungsinya adalah untuk memberi warna pada form yang kita buat. source code nya adalah seperti di bawah ini

procedure TForm1.Button2Click(Sender: TObject);
begin
if colordialog1.Execute then
form1.color := colordialog1.Color;
    5.  setelah semua sudah di masukan codenya  jadi nya seperti ini