먼저 OnChange이벤트를 재정의를 하십시요.

그리고 ChangeBySelf라는 변수를 Boolean형으로 주시구요..

OnChange이벤트를 처리하는 부분을 보시면

If Assigned 어쩌구 저쩌구... 모 이럴거에요.

이곳에서 If (not ChangeBySelf) and Assigned 어쩌구...

이런식으로 해주시구요..

Text에 넣는 부분에서는 ChangeBySelf를 True로 주시구요..

KeyPress나 KeyDown이벤트를 처리하는 부분에서 ChangeBySelf를 False로 주시구요...

이렇게 하시면 OnChage이벤트를 처리하는 부분에서 ChangeBySelf가 참이면 그곳에 Assign된 함수를 호출하지 않습니다...





최석기 wrote:

> 음..

> 제가 요즘 금액 콤포넌트를 하나 만들었거든요.

> 근데 다 잘되는데 약간의 문제점이 있어서 이렇게 글을 씁니다.

> 다름이 아니오라 TCustomEdit에서 상속을 받아서 금액 콤포넌트를 만드는데 금액에 콤마를 찍는 루틴을 TCustomEdit의 Change 이벤트를 상속받아서 그 이벤트 안에서 FormatFloat를 사용하여 금액에 콤마를 찍은것을 콤포넌트이 Text Prooerty 에 집어 넣었는데 이런 식으로 하니까 OnChange 이벤트를 두번 실행하게 되더라구요.

>

> 이벤트를 한번만 실행할 수 있는 방법이 없을까요?

>

> 애플리케이션 상에선 에디트의 Onchange의 함수 포인터를 잠시 nil로 만들었다 다시 연결하면 해결

이정욱 wrote:

> 먼저 OnChange이벤트를 재정의를 하십시요.

> 그리고 ChangeBySelf라는 변수를 Boolean형으로 주시구요..

> OnChange이벤트를 처리하는 부분을 보시면

> If Assigned 어쩌구 저쩌구... 모 이럴거에요.

> 이곳에서 If (not ChangeBySelf) and Assigned 어쩌구...

> 이런식으로 해주시구요..

> Text에 넣는 부분에서는 ChangeBySelf를 True로 주시구요..

> KeyPress나 KeyDown이벤트를 처리하는 부분에서 ChangeBySelf를 False로 주시구요...

> 이렇게 하시면 OnChage이벤트를 처리하는 부분에서 ChangeBySelf가 참이면 그곳에 Assign된 함수를 호출하지 않습니다...

>



먼저 정욱님께 신경 써 주신거에 대해 감사를 드립니다.

정욱님께서 가르쳐 주신데로 하면 OnChange 이벤트는 한번만 실행되기는 하는데 제가 잘못한건지 또 다른 문제점 하나가 발생하는군요.

정욱님이 가르쳐 주신 방법은 아래 문장을 Override 한 Change 이벤트의 제일 앞에 적어야 하는거 아닌가요?

procedure TCustomNumEdit.Change;

begin

inherited Change;

if (not ChangeBySelf) and Assigned(FOnChange) then

.....



이런식으로요??

그러면 OnChange에서 Text 값을 체크하면 FormatFloat를 사용하여 콤마를 찍기 전의 값이 Text에 들어있어요.

가령 '1,234'로 들어있는 Text에 5를 입력하면 OnChange 이벤트 시에 Text 값은 '1,2345'로 가지고 있게 되더라구요.



그래서 좀 지저분하긴 하지만 전 Chang 이벤트가 실행되어진 횟수를 세어서 한번 이상이면 Exit를 시켰거든요..



이런 경우는 어떻케 처리해야 하나요??



답변에 감사드립니다.