编辑和onEnter事件

Question

我有几件事有问题:

1. edit1.text当我点击输入时如何使空白(我认为它应该在onEnter事件上,但不是那么肯定)
2. 有没有办法将字符串分配Edit1.text给数组？

尽管如此,我想做的就是:

在编辑中输入名称,单击回车,然后在相同的编辑和以前的名称中输入另一个名称以保存在某个变量或数组中.这甚至可能吗？

我试过procedure TForm1.Edit3Enter(Sender: TObject);但是当我点击进入时没有任何反应.

Answer 1

在OnEnter当编辑控件接收键盘输入,而不是当用户按下触发事件Enter的关键.您应该使用该OnKeyPress事件,例如:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  S: String;
begin
  if Key = #13 then
  begin
    Key := #0;  
    S := Edit1.Text;
    Edit1.Clear;
    // do something with S...
  end;
end;