如何知道一个已经显示的窗体是正在模式显示还是非模式显示? ( 积分: 50 )

W

wanggongqin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #1

比如
Screen.Forms[0]....

... ...

 

K

keen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #2

给你个思路，可以这样判断模态窗口 fsModal in FormState

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-27

• #3

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
ListBox1.Clear;
for i := 0 to Screen.FormCount - 1 do begin
if fsModal in Screen.Forms.FormState then
ListBox1.Items.Add(Screen.Forms.Name + ':ShowModal')
else
ListBox1.Items.Add(Screen.Forms.Name + ':Show');
end;
end;