Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[3589] [답변] 아이야/ 이런에러 메세지는 어떻게?
grcsb [ ] 1221 읽음    1998-07-10 05:00
별로 뽀족한 방법은 아니지만..
콤포넌트의 소스를 고치셔서 다시 등록하는 방법을 알려드립니다..
(제가 주로 쓰는 방법이라서리..)
하지만 저도 요즘 너무 시간에 쫓기는 지라..
길만 가르켜 드립니다..
델파이 및의 source\VCL\Mask.pas라는 화일을 열어 보시면..
아래와 같은 곳이 있습니다..
이곳이 문제인데..
이곳 때문에 OnExit 이벤트이전에 에러 메시지가 뜹니다..
이곳을 수정하셔서 사용하세요..



From 류..

---------


procedure TCustomMaskEdit.ValidateError;
var
  Str: string;
begin
  MessageBeep(0);
  Str := EditMask;
  Str := Format(SMaskEditErr, [Str]);
  // 이부분을 고치시던가
  raise EDBEditError.Create(Str);
end;

또는

procedure TCustomMaskEdit.CMExit(var Message: TCMExit);
begin
  if IsMasked and not (csDesigning in ComponentState) then
  begin
    ValidateEdit;
    CheckCursor;
  end;
  inherited;  // 이것을 맨위로 올리시던가..
end;




+ -

관련 글 리스트
3589 [답변] 아이야/ 이런에러 메세지는 어떻게? grcsb 1221 1998/07/10
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.