怎么编程强制激活一个窗体。急

Question

Application.CreatForm(TForm1,Form1);
Form1.Show;
就是因为我用以上语句在MDI窗体中创建子窗体出现错误提示
‘不能创建FORM，当前没有激活的MDI窗体。’
于是我怒了，想在创建子窗体前再激活一遍MDI窗体（实际上本来就是激活的），
看看DELPHI还有什么话说。
是不是创建MDI或CHILD不能用以上方法啊？

Answer 1

MDI的child window ,不是用这种方法创建的 !!
具体的我看看在给你回信息!!

Answer 2

可以调用一个窗体的属性呀。
form1.action:=true;

Answer 3

h:=findwindow('xxx','xxxx);
EnableWindow(h,True);

Answer 4

你试着在Project菜单中选Option项，看是不是主窗口和子窗口都是系统自动建立，是则把子窗口移到可边栏去，试一下。

Answer 5

procedure tmainform.formclick(sender:tobject);
var
  newform:tchildform;
begin
  newform:=tchildform.create(self);
  newform.caption:='child form';
  newform.show;
end;