: 안녕하세요...
:
: CheckListBox를 쓰다가 의문이 생겨 이렇게 글을 올립니다...
:
: CheckListBox는 checked 와 selected 라는 프로퍼티가 있습니
:
: 다...
:
: 그 둘의 차이점은 아신다고 가정하겠습니다...
:
: 그런데 CheckListBox 는 TCustomListBox 에서 상속을 받았는데
:
: TCustomListBox에서는 MultiSelect 라는 프로퍼티가 protected
:
: 로 되어있어 이것을 true 로 설정하면 여러개를 Check 가 아닌 Select 를 할수 있습니다...
:
: 하지만 CheckListBox 는 그 프로퍼티가 없기도 하지만 메쏘드 또한
:
: 없어서인지Selected 프로퍼티를 true로 바꾸려고 하면 List out
:
: of bound 라는 에러가뜹니다...
:
: 물론 컴파일은 잘 되구요... 런타임 에러 입니다...
:
: 이 CheckListBox 의 <MultiSelect 를 true 로(중요!!)> 해주고
:
: Selected 를 엑세스할 수 있는 방법에 대한 조언을 부탁드립니다...
:
: 그럼 안녕히 계세요...
임펠리테리입니다.
리스트 아웃 오브 바운즈 에러가 생기는 원인은 MultiSelect가 false로
설정되어 있기 때문입니다.
말씀하신대로, MultiSelect는 TCheckListBox의 상위 클래스인 TCustomListBox에서
protected로 선언되어 있으므로 TCheckListBox에서 억세스할 수 없습니다.
하지만 이것을 상속받는 TCheckListBox에서 다시 public으로 선언하면 억세스가
가능하죠. 이것은 간단히 해당 헤더파일인 CheckLst.hpp만 수정하면 됩니다.
[빌더]/Source/vcl/CheckLst.hpp 을 오픈하셔서 public 섹션에 다음과 같이
한 줄을 추가하세요.
__property MultiSelect ;
퍼블릭 섹션에 추가했으므로 오브젝트 인스펙터에는 나타나지 않습니다. (만약 이것을
퍼블리시드 섹션에 추가해도 오브젝트 인스펙터에는 나타나지 않습니다. 그 이유는
파스칼 소스에서 생성된 컴퍼넌트의 경우 오브젝트 인스펙터가 참조하는 것은
헤더파일이 아니라 dcu 파일이기 때문이죠.)
이후에는 런타임에 MultiSelect 프로퍼티에 접근할 수 있습니다. 그러면 이 프로퍼티를
true로 설정하고, 그 이후에 Selected 프로퍼티를 쓸 수 있죠.
이같은 방법은 여기 제 사이트의 강좌란에 소개되어 있습니다.
(강좌 21번 private 멤버 억세스하기)
그리 바쁘시지 않으시면 꼭 읽어보시고 넘어가시기 바랍니다.
그럼 참고하시길...
|