Gün/Ay/Yıl tarih formatı :
DBGrid için;
procedure TForm1.FormShow(Sender: TObject);
begin
DBGrid1.Fields[1].EditMask:= '!##\/##\/####;1; ';
end;
MaskEdit için;
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
if (Screen.ActiveForm.ActiveControl is TMaskEdit) then
if (Screen.ActiveForm.ActiveControl as TMaskEdit).EditText = '' then
(Screen.ActiveForm.ActiveControl as TMaskEdit).EditText:= ' / / '; //veya := ' . . ';
end;
İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.
NeverFear - Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için
Üye Ol veya
Giris Yap