음.. 답변없는 질문에 스스로 하루하루를 날려가며 질문을 또 올리고 Q/A를 뒤지고



있습니다... ㅠ_ㅠ



이번에는 다름아니고... 제가 만든 리스트 박스에, 제가 만든 스크롤 붙여서 이제



거의 완성하고 리스트박스에서 화살표 버튼 누르면 위 아래로 이동하게 하려고 하거



든요... 근데 KEYPRESS도 KEYDOWN도 절대로 먹지를 않습니다. 디버깅을 하는데 일루



아예 들어오지두 않구요. 오히려 저쪽에 놓인 스탠다드 리스트박스의 줄이 오르내리락



하네요? 무하하하... -_-; 뭔가 제가 모르는 게 있는거 같은데... 어케 해야하나요???



플리즈... 제발... 부탁드려요... 이번엔 정말 해결 불가능... ㅠ_ㅠ





procedure MYLISTBOX.KEYPRESS(VAR KEY:CHAR) <= 이리루 오지도 않습니다... ㅠ_ㅠ



begin

if Key = #26 then // vk_up

begin

FSelectedItem := FSelectedItem - 1;

if FSelectedItem < 0 then

FSelectedItem := 0;

end

else if Key = #28 then // VK_DOWN

begin

FSelectedItem := FSelectedItem + 1;

if FSelectedItem > FVScroll.maximum then

FSelectedItem := FFirstVisibleItem + FVScroll.maximum;

end;



Invalidate;



end;







end;