delphi – 停止编辑框中的某些键

发布时间：2020-12-15 04:17:21 所属栏目：大数据来源：网络整理

导读：所以我已经有了代码.但是当它运行时它不允许退格键,我需要它来允许退格键并删除空格键,因为我不想要空格. procedure TForm1.AEditAKeyPress(Sender: TObject; var Key: Char);var s:string;begins := ('1 2 3 4 5 6 7 8 9 0 .'); //Add chars you want to al

所以我已经有了代码.但是当它运行时它不允许退格键,我需要它来允许退格键并删除空格键,因为我不想要空格.

procedure TForm1.AEditAKeyPress(Sender: TObject; var Key: Char);
var s:string;
begin
s := ('1 2 3 4 5 6 7 8 9 0 .'); //Add chars you want to allow
if pos(key,s) =0 then begin Key:=#0;
showmessage('Invalid Char');
end;

需要帮助谢谢：D

解决方法

请注意代码中已有的注释：

procedure TForm1.AEditKeyPress(Sender: TObject; var Key: Char);
var s:string;
begin
  s := ('1234567890.'#8); //Add chars you want to allow
  if pos(key,s) =0 then begin
    Key:=#0;
    showmessage('Invalid Char');
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!