如何获得所有窗体?(50分)

H

houtor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-30

• #1

如何获得工程里所有窗体（包括模式与非模式窗体)

 

S

skyccf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-30

• #2

for i:=0 to screen.FormCount-1 do
begin
//你的代码
screen.Forms.BringToFront;
screen.Forms.Show;
end

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-30

• #3

例:关闭任何已打开的窗口 (除主窗体TFMAIN)
for i:=0 to Application.ComponentCount-1 do
begin
if (Application.Components is TForm) then
if UpperCase(TForm(Application.Components).ClassName)<>'TFMAIN' then
TForm(Application.Components).Close;;
end;

 

H

hhi179

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-22

• #4

给你看我写的这个:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i,j:integer;
begin//动态菜单OnClick事件响应
for j:=1 to (Form1.PopupMenu1.Items.Count-1) do
begin
for i := 0 to Fmailwin.MDIChildCount do //查找所有子窗体
if trim(Form1.MDIChildren.Caption)=trim(Fmailwin.PopupMenu1.Items[j].Caption) then
Form1.MDIChildren.Release;//关闭子窗体
end;
Form1.PopupMenu1.Items.Clear;
end;

 

H

houtor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-22

• #5

接受答案了.