Form Basliginda Tarih ve Saat Gösterimi

Merhaba arkadaslar bu makalemizde Delphi formumuzun basliginda tarih ve saat gösterecegiz. Formumuza 1 adet Timer ekleyecegiz. Ekledigimiz Timer1 in Timer kismina kodumuzu yazacagiz.

Sekil 1

unit timer_Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

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:=DateTimeToStr(Now);

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüsmek üzere. Bahadir SAHIN