Q&A

  • 이미지를 방향키에 따라 움직이게 하려면?
델초보임다..........



이미지가 방향키에 따라 움직이도록 하고파요...



그런데 그게 잘안되는데요...



좀 도와 주세요......



고수님들 부탁

1  COMMENTS
  • Profile
    이대선 2000.08.23 04:17
    델초보 wrote:

    > 델초보임다..........

    >

    > 이미지가 방향키에 따라 움직이도록 하고파요...

    >

    > 그런데 그게 잘안되는데요...

    >

    > 좀 도와 주세요......

    >

    > 고수님들 부탁



    현재 focus가 있는 곳의 onKeyDown, onKeyUp, onKeyPress에 코딩을 하시는게 좋을 듯 합니다.



    저는 폼에 포커스가 있다고 가정을 하고 예제를 보냅니다.



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

    Shift: TShiftState);

    begin

    if key = VK_left then begin

    image1.Left := image1.Left - 1;

    end else

    if key = vk_up then begin

    image1.top := image1.top - 1;

    end else

    if key = vk_down then begin

    image1.top := image1.top + 1;

    end else

    if key = VK_right then begin

    image1.Left := image1.Left + 1;

    end;

    end;