如何获取父窗体中所有已经打开的子窗体的名称？(100分)

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-17

• #1

如何获取父窗体中所有已经打开的子窗体的名称？

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-17

• #2

h:=getparent(YouWin);
subwin:=1;
while (subwin<>0) do
begin
subwin:=FindWindowEx();
if windowsvisible(subwin) then 打开
end;

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-17

• #3

wql，能写详细些吗？

 

G

guqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-17

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
s: String;
begin
for i := 0 to self.MDIChildCount - 1 do
s := s + self.MDIChildren.Name;
ShowMessage(s);
end;

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-17

• #5

guqiu，谢谢你。