+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حول التاريخ في Maskedit (/showthread.php?tid=1163)
حول التاريخ في Maskedit - kwahab - 31-08-2009
السلام عليكم
ابحث عن طريقة تجعل التاريخ في maskedit يعمل بشكل صحيح
حيث اليوم لايتعدي 31 والشهر12 والسنة من 1900 الى 1954
وشكرا
حول التاريخ في Maskedit - me_delphi - 01-09-2009
هده أحدد الطرق باستعمال الحدث OnExit
PHP كود :
procedure TForm1.MaskEdit1Exit(Sender: TObject);
var M,J,A:Word;
begin
try
DecodeDate(StrToDate(MaskEdit1.Text),A,M,J);
if (A > 1954) or (M > 12) or(J > 31) then
begin
ShowMessage('Date not allowed');
MaskEdit1.Text:= '';
end;
except
ShowMessage('Wrong Date');
MaskEdit1.Text:= '';
end;
end;
حول التاريخ في Maskedit - kwahab - 01-09-2009
بارك الله فيك