OguzhanUyanik Mareşal
Mesaj Sayısı : 472 Kayıt tarihi : 31/08/09 Yaş : 31 Nerden : Konya İş/Hobiler : Bilgisyar-Yazılım Lakap : Nediz
| Konu: Delphi Formumuza Saat Ekleyelim.. Cuma Eyl. 11, 2009 12:00 am | |
| Delphi'de bir program yazdık ve içerisinde ya da herhangi bir yerinde saatle ilgili bir özellik kullanmak istiyoruz.. http://img.sanalkurs.net/uploads/delp.jpgİş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. | |
|