Delphi'de bir program yazdık ve içerisinde ya da herhangi bir yerinde saatle ilgili bir özellik kullanmak istiyoruz..



İşlem çok basit formumuza bir adet Timer koyuyoruz ve sistem saatini düzenli görebilmek için şu kodları kullanıyoruz:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, MPlayer;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Caption:='Coded By   .: z!yade :.   [ '+TimeToStr(time) +' ]';

end;

end.

Ben Form başlığına koydum saatimi, siz dilediğiniz yere koyabilirsiniz.