窗口显示，请教高手问题出在哪儿？

Question

啊，放在Form5.Activate里就行了
但是关闭Form12的时候就出错，为什么？

Answer 1

procedure TForm5.FormActivate(Sender: TObject); 
begin 
  Form12.Show; 
end; 

Answer 2

调用SetWindowPos函数设置Form12的显示位置，如要把Form12显示到最前端：
SetWindowPos(Form12.Handle, HWND_TOPMOST , 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);

Answer 3

你再试一试用form5调用其它的窗体看，如果也是这个样子，那么就是你把FORM5设置为最前边了；
你再试一试如下：
重新建一个//代码上边太多了，但再写一下吧；
uses
...form12's Unit;
....
procedure buttonclick(sender:Tobject)
var
  form12:Tform12;
begin
  form12:=Tform12.create(application);
  form12.show;
end;

Answer 4

Unit Unit1;
interface
uses
  ...  Unit2;
...
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  form2:Tform2;
begin
  form2:=Tform2.create(application);
  hide;
  form2.show;
end;end.Unit Unit2
interface
 uses
   ...Unit1;
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 form1.Visible :=true;
end;end.
好了，这样也就可以了；

Answer 5

请问 ihihonline 我现在在Form5的Activate里
添加了
Form12.show;但是我关Form12的时候就会报错，这是什么原因？

Answer 6

奇怪啊，放在butclick的事件中就不报错，放在formactivate中就出错呢