KeyPress프로시져에서.. 입력 받은 키 값을 다른 값으로 바꾸고 싶은데, 어떻해야.. 할지.. 몰라서 도움을 청합니다. if key = Chr(VK_SPACE) then key := Chr(VK_RIGHT); 마스크 에디트에서 스페이스 키를 누르면, 오측 화살표 처럼 행동...
양병규
•
1999.12.16 11:18
OnKeyDown과 OnKeyPress에서 모두 처리해 주시면됩니다.
OnKeyDown에서는 스페이스를 Right키로 바꾸고...
OnKeyDown에서는 스페이스를 Right키로 바꾸고요
OnKeyPress에서는 입력된 스페이스값을 없애주면 됩니다.
그럼
평안하시길~
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 = Char( VK_SPACE ) then Key := #0;
end;