怎么在 Edit 中禁止从键盘输入字符

Question

问题如题哈，谢谢各位大虾了，小妹谢谢先，新人分不多。

Answer 1

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

Answer 2

在Edit的onkeypress中：
key:=#0;

Answer 3

随便还问个问题哈。我想实现y^x次方
我写的代码是这样的
我帖上来
procedure TForm1.SpeedButton21Click(Sender: TObject);
begin
  Temp1 := Edit1.Text;
  Flag := 5;//这个是操作标记哈，
  Edit1.Text := '';
end;
5 : Temp2 := Exp(Ln(StrToFloat(Temp1))) * StrToFloat(Edit1.Text);//我用了个CASE 语句哈
但是她得到的是做乘积使用
举个例子来说
我按了3  然后按了2 ,也就是说 3的平方，但是得到的是6，请问下我那里有问题呢？？？

Answer 4

随便还问个问题哈。我想实现y^x次方
power(x,y)