哎，老大们，怎么样防止创建窗体的多个实例啊？？

Question

出什么错，就在oncreate事件中写，你最好把子窗体的visible改成false，然后注意控制

Answer 1

uses
  ChildFrm;  //子窗体所在单元var 
  ChildForm: TChildForm;
procedure TMainForm.CreateChildFormClick(.....);
begin
  if TChildForm(FindComponent('TChildForm', 'ChildForm')) <> nil then
    ChildForm := TChildForm.Create(self);
  ChildForm.Show;
end;

Answer 2

假设这个窗体名为Form1,那么这么写：
if (!Form1)  //实例不存在
   Form1 = new TForm1(Application);
Form1->ShowModal();