Fórum Como identificar um formulário(MDIChild) ativo #164335
03/06/2003
0
Olá pessoal gostária de saber como idenficar qual dos formulários MDIChild da aplicação esta ativo..... e gostária tb de saber como acessa-lo sem difinir seu nome especifico, mas sim idenficar se está ativo ou não e acessa-lo pelo estado de uma forma dinâmica.....
Rmc
Curtir tópico
+ 0
Responder
Posts
03/06/2003
Ggean
Oi,
nao sei se é isso que vc deseja mas de uma olhada, testei esse procedimento agora, veja.
procedure Tform1.verFilho(Form:Tform);
var
i:integer;
begin
for i:=0 to screen.formcount do
begin
if isChild(Form.handle,screen.forms[i].handle) then
begin
showmessage(´O form: ´+screen.forms[i].Name+´ é Filho e está aberto´);
screen.forms[i].windowState:=wsMaximized;
exit;
end;
end;
end;
////////////////
//////////////
procedure TForm1.Button3Click(Sender: TObject);
begin
verFilho(Form1);
end;
aqui funcionou uso o D4.
boa sorte.
nao sei se é isso que vc deseja mas de uma olhada, testei esse procedimento agora, veja.
procedure Tform1.verFilho(Form:Tform);
var
i:integer;
begin
for i:=0 to screen.formcount do
begin
if isChild(Form.handle,screen.forms[i].handle) then
begin
showmessage(´O form: ´+screen.forms[i].Name+´ é Filho e está aberto´);
screen.forms[i].windowState:=wsMaximized;
exit;
end;
end;
end;
////////////////
//////////////
procedure TForm1.Button3Click(Sender: TObject);
begin
verFilho(Form1);
end;
aqui funcionou uso o D4.
boa sorte.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)