注意:
因为ShowModal与Show是不同的。
fomr2.ShowModal时,要求Form2.Visiable=False,假使你设置为Visiable=True就会产生错误:
看ShowModal函数定义:
function TCustomForm.ShowModal: Integer;
var
WindowList: Pointer;
SaveFocusCount: Integer;
SaveCursor: TCursor;
SaveCount: Integer;
ActiveWindow: HWnd;
begin
CancelDrag;
if Visible //Form.visible=True.
or not Enabled or (fsModal in FFormState) or
(FormStyle = fsMDIChild) then
raise EInvalidOperation.Create(SCannotShowModal); //产生一个raise,出错误。
其中SCannotShowModal = 'Cannot make a visible window modal';
...
end
fomr2.Show时,要求Form2.Visiable=True或False都不会错。
Show函数定义:
procedure TCustomForm.Show;
begin
Visible := True;
BringToFront;
end;
因为ShowModal与Show是不同的。
fomr2.ShowModal时,要求Form2.Visiable=False,假使你设置为Visiable=True就会产生错误:
看ShowModal函数定义:
function TCustomForm.ShowModal: Integer;
var
WindowList: Pointer;
SaveFocusCount: Integer;
SaveCursor: TCursor;
SaveCount: Integer;
ActiveWindow: HWnd;
begin
CancelDrag;
if Visible //Form.visible=True.
or not Enabled or (fsModal in FFormState) or
(FormStyle = fsMDIChild) then
raise EInvalidOperation.Create(SCannotShowModal); //产生一个raise,出错误。
其中SCannotShowModal = 'Cannot make a visible window modal';
...
end
fomr2.Show时,要求Form2.Visiable=True或False都不会错。
Show函数定义:
procedure TCustomForm.Show;
begin
Visible := True;
BringToFront;
end;