Question

在delphi中如何判断是否输入了空格.

请千万别告诉我是if key = #32 我已经试过了,无法通过. 是在键盘按下事件中测试的.

Answer 1

procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#32 then
key:=#0;
end;
经测试通过了，没问题。

Answer 2

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#32 then
begin
Label1.Color:=clRed;
end;
end;

end.