怎样防止form的多次显示？

Question

你要问的实际上是为了防止创建多个FORM吧？
创建之前检查一下是否产生了FORM的实例。

Answer 1

Begin
  if not Assigned(YourForm) then //检查有无实例。
    YourForm:=TModel.Create(Application); //没有则创建。
    YourForm.Show; //窗体显示。
  end;
记住:
  在FormClose中要
  begin
    YourForm.Action:=caFree;
  end;
  在FormDestroy中要
  begin
    YourForm:=nil;
  end;