음.. 콤포넌트 만들고 디버깅을 하는데요... 다른 키는 먹는데....



화살표(VK_UP, DOWN)키를 눌러도 디버깅할때 보니 안들어오네요....



KEYDOWN을 아래와 같이 작성했는데.... 일반 CHAR나 펑션키도 다 먹



히는데 화살표를 눌르면 KEYDOWN으로 안들어와요... 음.. 제 콤포넌트



는 TCustomControl에서 상속했습니다...



--------------------------------------------------------------------



protected

procedure KeyDown(var Key: Word; Shift: TShiftState); override;



...





procedure TWxListBox.KeyDown(var Key: Word; Shift: TShiftState);

var

FCurrentItem : integer;

begin

FCurrentItem := -1;



if( Key = VK_UP ) then

FCurrentItem := FLastSelectedItem - 1

else if ( Key = VK_DOWN) then

FCurrentItem := FLastSelectedItem + 1;



if (FCurrentItem >= 0) and (FCurrentItem < FItems.Count) then

begin

MSelectArrayClear;

MSelectArray[FCurrentItem] := true;

FLastSelectedItem := FCurrentItem;

Invalidate;

end;

end;