Cem Yılmaz Doktorum'da / Doktorum / Programlar / Video / Kanal D Web TV

Cem Yılmaz Doktorum'da / Doktorum / Programlar / Video / Kanal D Web TV

Yeni sezon fragmanı / Hanımın Çiftliği / Diziler / Video / Kanal D Web TV

Yeni sezon fragmanı / Hanımın Çiftliği / Diziler / Video / Kanal D Web TV

Delphi kodları

Form Açılışına şifre koy
NoT:Degişkenler ve örnek şifreyi kendinize göre düzenlemeyi unutmayın
procedure TForm1.FormCreate(Sender: TObject);
var
x,b:string;
begin
b:='1234';
x:=inputbox('Programa Giriş','Programa girmek için şifreyi Giriniz:','');
if x=b then
application.messagebox('Programa Girişiniz Onaylandı.Tebrikler ..!','Tebrikler',mb_ok+mb_defbutton1)
else
halt;
------------------------------------------



Edit e girilen yazının ilk harfini büyük yazılsın
edit'in On KeyPres Eventine Yazılacak
with Sender as TEdit do
if (SelStart = 0) or
(Text[SelStart] = ' ') then
if Key in ['a'..'z'] then
Key := UpCase(Key);
------------------------------------------

Saat ve tarih
Not:Label Yerine edit koyabilirsiniz istege baglı
Saat

var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
Label1.Caption := str
Tarih

var
DateTime : TDateTime;
str : string;
begin
DateTime := date;
str := dateToStr(DateTime);
Label1.Caption := str;

-------------------------------------------