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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.