怎么判断一个窗体是ShowModal窗体(100分)

123456789051352 · 2006-07-10

请教个为侠客，师父：  怎么判断一个窗体是ShowModal窗体，  怎么判断一个窗体是Show窗体

lihoulong · 2006-07-10

定义一个全局变量, 再重载showmodal方法.  在showmodal方法里面改变全局变量就OK了． function showmodal:integer;override;

蓝叶菱 · 2006-07-10

procedure TForm1.Button1Click(Sender: TObject); begin   if  [fsModal]=Form1.FormState then       ShowMessage('Form1 是一个Model窗体！'); 详细参考vcl的showmodal的定义。看看showmodal究竟做了什么你就知道了。    TFormState = set of (fsCreating, fsVisible, fsShowing, fsModal,    fsCreatedMDIChild, fsActivated);

boldfake · 2006-07-10

樓上的方法好,就是這樣

goodpb2006 · 2006-07-11

同意楼上上的

ff_ff · 2006-07-11

好像不可以，下面的过程一个也没有执行 procedure TForm1.Button1Click(Sender: TObject); begin   if  [fsModal]=Form1.FormState then       ShowMessage('Form1 是一个Model窗体！');   if  [fsVisible]=Form1.FormState then       ShowMessage('Form1 是一个可见窗体！');   if Form1.FormState = [fsVisible] then          ShowMessage('Form1 是一个可见窗体！'); end;

蓝叶菱 · 2006-07-11

当然不要放在按钮里面，这里例子，是通过按钮点击测试的。   你要自动显示，当然需要在form1.onshow或者onactive,oncreate添加到这里才可以。

网中戏 · 2006-07-11

既然是查询当然要放在按钮里面。想查就查。否则没有意义

boldfake · 2006-07-12

procedure TForm1.Button1Click(Sender: TObject); begin   if  fsModal in Form1.FormState then       ShowMessage('Form1 是一个Model窗体！');   if  fsVisible in Form1.FormState then       ShowMessage('Form1 是一个可见窗体！'); end;

123456789051352 · 2006-07-21

多人接受答案了。

怎么判断一个窗体是ShowModal窗体(100分)

123456789051352

Unregistered / Unconfirmed

lihoulong

Unregistered / Unconfirmed

蓝叶菱

Unregistered / Unconfirmed

boldfake

Unregistered / Unconfirmed

goodpb2006

Unregistered / Unconfirmed

ff_ff

Unregistered / Unconfirmed

蓝叶菱

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

boldfake

Unregistered / Unconfirmed

123456789051352

Unregistered / Unconfirmed

Similar threads