초보라 죄송합니다...
생년월일을 입력하고 에러처리를 하기 위하여 아래와 같이 만들었는데
고의로 잘못입력해놓고 에러확인을 하는데
"입력이 잘못되었습니다."가 나오고나면
"Invalid input value. Use escape key to abandon changes." 가 나오네요
이메세지를 안나오게 하는 방법은 어떻게 하면 되나요...
참고로 마스크에디트박스에서 마스크를 그냥 9999-99-99 로 하였습니다.
if key=#13 then begin
if birth.text=' - - ' then school.setfocus
else begin
try
date_var:=strtodatetime(birth.text);
school.setfocus;
except on E: EConvertError do
begin
ShowMessage('입력이 잘못되었습니다.');
birth.setfocus;
end;
end;
end;
end;
begin
If (Sender is TMaskEdit) then
begin
Application.MessageBox('입력값에 오류가 있습니다. 확인하시고 다시 입력하세요.',
'날짜입력오류',MB_OK+MB_ICONERROR);
TMaskEdit(Sender).Text := '';
end;
end;
입니당..