Q&A

  • 키값에 대해서..
입력 받은 키 값을 다른 값으로 바꾸고 싶은데, 어떻해야.. 할지.. 몰라서 도움을 청합니다.

if key = Chr(VK_SPACE) then key := Chr(VK_RIGHT);

마스크 에디트에서 스페이스 키를 누르면, 오측 화살표 처럼 행동하게 끔 하고 싶은데,

그게 잘 않되는 군요.

도움을 청합니다.

그럼 20000.. 즐거운 하루 되시길..

1  COMMENTS
  • Profile
    1999.12.15 23:38
    맨발의 청춘 wrote:

    > 입력 받은 키 값을 다른 값으로 바꾸고 싶은데, 어떻해야.. 할지.. 몰라서 도움을 청합니다.

    > if key = Chr(VK_SPACE) then key := Chr(VK_RIGHT);

    > 마스크 에디트에서 스페이스 키를 누르면, 오측 화살표 처럼 행동하게 끔 하고 싶은데,

    > 그게 잘 않되는 군요.

    > 도움을 청합니다.

    > 그럼 20000.. 즐거운 하루 되시길..



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

    Shift: TShiftState);

    begin

    If key = VK_SPACE THEN KEY := VK_RIGHT;

    end;



    procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);

    begin

    if key = #32 then key := #0;

    end;