新手入门，一个关于Edit与Button的小问题！

Question

类型变成文本的就可以了
去查asc11码 我就知道
key=#13是回车

Answer 1

问题1：
if edit1.text='' then
  edit1.text:='123'//'123'系你指定的数字
  else
    edit1.Text :=copy(edit1.text,1,4)+'123'+copy(edit1.text,5,length(edit1.text)-4);//4是任意位置
另外，edit中的定位是selstat问题2:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  showmessage('yes');
end;procedure TForm1.Button1Click(Sender: TObject);
var vkey:char;
begin
  vkey:=#13;
  edit1.OnKeyPress(sender,vkey);
end;

Answer 2

1、
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text :='3434';
end;
字符串的任意位置插入数字！试一下用strmove;
2、
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.SetFocus;
  //发送一个enter键
  keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), 0, 0);
end;