Question

delphi 文本框中如何禁止输入空格

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['0'..'9', 'A'..'Z', 'a'..'z', #8, #46]) then
Key := #0;
end;
仍然可以输入空格

Answer 1

貌似楼主你的代码和禁止输入空格键的代码格格不入啊。。

我的代码：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = ' ' then Key := #0
end;

就这样好了。。 呵呵

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#32 then//或者key=' '
Key := #0;
end;

空格的ascii码 是32

Answer 3

加上#32即可