المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : حول التاريخ في Maskedit


kwahab
31-08-2009, 06:33 PM
السلام عليكم
ابحث عن طريقة تجعل التاريخ في maskedit يعمل بشكل صحيح
حيث اليوم لايتعدي 31 والشهر12 والسنة من 1900 الى 1954
وشكرا

me&delphi
01-09-2009, 01:31 AM
هده أحدد الطرق باستعمال الحدث OnExit
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;

kwahab
01-09-2009, 12:38 PM
بارك الله فيك