Menampilkan Jam pada Title Bar dengan Delphi 7

Baik pada kesempatan sore hari ini saya akan membagikan sedikit tips bagi kalian yang ingin atau sedang memperdalam ilmu tentang pemrograman kususnya Borland Dhelpi 7.
Sore hari ini tips yang akan saya bagikan adalah membuat Jam pada title bar, jadi jika ingin menghias program anda atau ingin mempercantik tampilan form nya silahkan coba tutorial yang satu ini.

Tutorial Membuat Jam di Title Bar

Note : Yang perlu kalian tambahkan adalah Timer 1 buah aja.
jangan lupa Enable nya di true in biar bisa ketap ketip jamnya trus intervalnya adalah 1000

Script :
#

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  TheTime: array[0..80] of char;
begin
  StrPCopy(TheTime, TimeToStr(time));
  TextOut(dc, width DIV 2, 5, TheTime, StrLen(TheTime));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  dc := GetWindowDC(handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ReleaseDC(handle, dc);
end;

end.


Kira-kira seperti itu scriptnya, jika anda bingung silahkan tinggalkan pesan anda dibawah . ..
OK, Good Luck dan selamat Belajar

NB : Hanya bekerja Di Windows XP