动态创建一个新窗体 焦点仍然留在原来的窗体上 可以实现吗？

Question

怎么实现？？？谢谢 谢谢 谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  form : Tform ;
begin
  form:=Tform.Create(self);
  form.Show;
  form1.Edit1.SetFocus;end;

Answer 2

或者
procedure TForm1.Button1Click(Sender: TObject);
var
  form : Tform ;
begin
  form:=Tform.Create(self);
  form.Show;
  form1.SetFocus;end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var  Form : TForm ;
begin
  Form:=TForm.Create(self);
  Form.Caption:='Form2';
  Form.Show;
  Form1.SetFocus;
end;

Answer 4

大哥：
  我是想自己做一个软键盘、但是焦点要保存在原来我点的位置上，可能是EDIT1
可能是EDIT2 等 
  如何 谢谢

Answer 5

用PostMessage函数发个消息给它