如何禁止'single-quote' key 的输入呢？ 用 if (key in ['\','/',';',':'...]) then Key:=#0; 的方式不行。 查到Virtual Key Code 为222，但 if Key=#222 then Key:=#0; 也不起作用。如何解决这个问题？请指点，谢谢。 不断学习

------
不断学习

引言: 如何禁止'single-quote' key 的输入呢？ 用 if (key in ['\','/',';',':'...]) then Key:=#0; 的方式不行。 查到Virtual Key Code 为222，但 if Key=#222 then Key:=#0; 也不起作用。如何解决这个问题？请指点，谢谢。 不断学习

Edit 為例,在 OnKeyPress 下判斷如下 if (key in ['\','/',';',':','''']) then Key := #0; 就會過濾掉判斷式內的字元了... ' 的 ASCII code 是 39 ,應該要用 Ord('''') ... Visual Key Code 是針對鍵盤上的功能鍵與數字鍵盤上的 key 作定義.. ---- 我只會兩件事,這也不會,那也不會 ---- 眼見不一定為真

Anonimity 你好:    不知是否有誤會你的意思.    'single-quote' key 的 Virtual Key Code 為 222 ?    以下是測試禁止輸入"單引號":

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#39 then Key:=#0;
end;

谢谢SouthWind和Mickey的指点。 看来是小弟查资料时未能认真查看，已经解决了问题，但分数只能给一个人，只能是有些遗憾了。 不断学习

------
不断学习