我想让系统的键按下是输出的是另外一个键！怎么办啊？

Question

比如按下小键盘的7的时候输出的是q，怎么完成呢？

Answer 1

procedure Tfrmquery.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then//刚按下的
    if (activecontrol is tedit) then
    begin
      key:=#0;//想改变的
      
    end;
end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key='7' then key:='q'
end;

Answer 3

procedure Tfrmquery.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then//刚按下的
  begin
      key:=#0;//想改变的    
  end;
end;

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key = chr(55) then //按下的是7
        key := #113;       //输出的是q
end;

Answer 5

晕
还以为是第一楼
怎么就有n个人回答了
=================================================================================
Service Unavailable