Q&A

  • 숫자 키에 대해서...
리스트 박스에서 Item을 아래 위로 움직이는 것을 Numpad 2, 8, 4, 6 key를 사용하려고 하는데요...

NumLock key를 눌렀을 때에는 숫자 0 키를 눌렀을 때 0번째 Item이 선택되고...

1 키는 1번째 Item이 선택....

NumLock 에 불이 꺼졌을 때는 숫자 2를 누르면 아래로 이동... 8은 위로 이동하는데요...

제가 임의적으로 이 숫자 키들을 아래 위 이동 사용하려면 어떻게 해야 되나요???

1  COMMENTS
  • Profile
    최용일 2000.06.03 04:31
    안녕하세요. 최용일입니다.



    TListBox의 OnKeyDown에서 처리하세요.



    procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;

    Shift: TShiftState);

    begin

    if Key = VK_NUMPAD2 then

    (Sender as TListBox).ItemIndex := (Sender as TListBox).ItemIndex + 1

    else

    if Key = VK_NUMPAD8 then

    (Sender as TListBox).ItemIndex := (Sender as TListBox).ItemIndex + 1

    end;



    TListBox에서 ItemIndex의 위,아래 범위검사는 쉬우니까 직접 코딩하세요.



    ^^ 항상 즐코하세요.



    wing wrote:

    > 리스트 박스에서 Item을 아래 위로 움직이는 것을 Numpad 2, 8, 4, 6 key를 사용하려고 하는데요...

    > NumLock key를 눌렀을 때에는 숫자 0 키를 눌렀을 때 0번째 Item이 선택되고...

    > 1 키는 1번째 Item이 선택....

    > NumLock 에 불이 꺼졌을 때는 숫자 2를 누르면 아래로 이동... 8은 위로 이동하는데요...

    > 제가 임의적으로 이 숫자 키들을 아래 위 이동 사용하려면 어떻게 해야 되나요???