cara membuat Judul sebuah program pada delphi
Bagaimana cara membuat Judul sebuahprogram pada delphi agar bisa berjalan seperti pada website ?? hmm,, untuk membuat agar tulisan bisa berjalan pada caption yang harus kita butuhkan adalah sebuah “Timer”. Langkah pertama yang harus dilakukan adalah jalankan delphi 6 atau 7 lalu ketik sintaks dibawah ini : unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Old_Title : String; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin Application.Title := ‘Selamat Belajar Delphi ‘; Old_Title := Application.Title; end; procedure TForm1.Timer1Timer(Sender: TObject); var temp : string; be...