31-08-2009, 06:33 PM
01-09-2009, 01:31 AM
هده أحدد الطرق باستعمال الحدث 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;
01-09-2009, 12:38 PM
بارك الله فيك