模式表单如何在初始化时就释放自己？(20分)

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #1

调用语句：
......
Form1.ShowModal;

在Form1的OnCreate,OnShow,OnActive事件中输入
if ..... then
Self.ModalResult:=mrCancel
//这样表单自己并不能够关闭自己
end;

 

L

lncd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #2

好象不行呀。
我觉得应该在外面进行判断。

application.createForm(TForm1,Form1)
if form1.XXX... then
begin
form1.showmodal
end;

 

L

liuchengr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #3

重载Form1.ShowModal；
说明如下：
function ShowModal: Integer
override;

function TForm1.ShowModal: Integer;
begin
if ... Then
Begin
//显示表单
Result := inherited ShowModal;
End
Else
Result := mrCancel;
end;

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #4

接受答案了.