一个想法

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,mmsystem,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Btn2Click(Sender: TObject);  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
var
  edt2:Tedit;
  btn2:TButton;procedure TForm1.Btn2Click(Sender: TObject);
begin
  edit1.SetFocus;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if edt2<>nil then
    edt2.SetFocus
  else
  begin
    edt2 :=Tedit.Create(self);
    Edt2.Height := edit1.Height;
    edt2.Width := edit1.Width;
    edt2.Left := edit1.Left;
    edt2.Top := edit1.Top+  edit1.Height+10;
    edt2.Parent := form1;
    edt2.Visible :=true;    btn2 :=Tbutton.Create(self);
    btn2.Height := button1.Height;
    btn2.Width := button1.Width;
    btn2.Left := button1.Left;
    btn2.Top := button1.Top+  button1.Height+10;
    btn2.OnClick := Btn2Click;
    btn2.Parent := form1;
    btn2.Visible :=true;    edt2.SetFocus;
  end;
end;end.

Answer 1

procedure TForm1.Btn2Click(Sender: TObject);
begin
  edit1.text:=edt2.text;
  edit1.SetFocus;
end;

Answer 2

有 那么复杂吗，先放好了控件，disable 掉 ，要的时候 enable 不就 ok 了