(在线)窗体showmodal时候出现的错误

Question

代码:
f:=Tfrmenter.Create(Application);
f.ShowModal;结果出现:cannot make a visible window modal的错误提示,怎么解决?
在此操作前已经有一个窗体showmodal了,并成功了

Answer 1

你用如下代码if not Assigned(form1) then
  form1 := Tform1.Create(nil);
  form1.ShowModal;

Answer 2

f:=Tfrmenter.Create(Application);
f.Visible := False;
f.ShowModal;

Answer 3

不行又出现:
access vilation....错误

Answer 4

f:=Tfrmenter.Create(Application);
f.visible := false;就可以了...
f.ShowModal;看看ShowModel关键的一部分代码
function TCustomForm.ShowModal: Integer;
var
  WindowList: Pointer;
  SaveFocusState: TFocusState;
  SaveCursor: TCursor;
  SaveCount: Integer;
  ActiveWindow: HWnd;
begin
  CancelDrag;
  if Visible or not Enabled or (fsModal in FFormState) or
    (FormStyle = fsMDIChild) then
    raise EInvalidOperation.Create(SCannotShowModal); //问题出在这里,是因为你把f窗体的visible设置为true;

Answer 5

dolphin2001(抢包山) 方法可以..谢谢