Historico de Telas Abertos igual ao MDChild

Delphi

05/08/2003

Estou com um probleminha quero ter um historico de todas as minhas telas abertas, mas não quero usar MDchild, se alguem tiver um exemplo que queira me mandar eu agradeço.


Grato


Fernando

Fernando

Curtidas 0

Respostas

Nildo

Nildo

05/08/2003

Mas de todas as telas do computador ou do seu sistema apenas?


GOSTEI 0
Nildo

Nildo

05/08/2003

Esse exemplo vai mostrar todas as janelas abertas. Agora vc modifica e coloca como vc quiser.
var
   nAux: integer;
   sForms: string;
begin
   sForms := ´´;
   for nAux := 0 to Application.componentCount -1 do
      if (Application.components[nAux] is TForm) and (TForm(Application.Components[nAux]).Visible) then
         sForms := sForms + 1310 + TForm(Application.Components[nAux]).Caption;

   ShowMessage(sForms);
end;



GOSTEI 0
Dpinho

Dpinho

05/08/2003

Esse exemplo vai mostrar todas as janelas abertas. Agora vc modifica e coloca como vc quiser. 
var
   nAux: integer;
   sForms: string;
begin
   sForms := ´´;
   for nAux := 0 to Application.componentCount -1 do
      if (Application.components[nAux] is TForm) and (TForm(Application.Components[nAux]).Visible) then
         sForms := sForms + 1310 + TForm(Application.Components[nAux]).Caption;

   ShowMessage(sForms);
end;


Caro amigo, estou tenatndo utilizar esta rotina para ver quais as jenelas estão abertas no meu programa, mas retorna somente o nome do programa um certo numero de vez tipo assim

Programa plus Versão 20
Programa Plus versão 20

Se clico em ok vai fechando um por vez, gostaria de retornar o nome do formulario e não o nome da aplicação, poderia me ajudar.
Meu programa esta travando na saida, esta ficando um componente na memoria e ja utulizei varias formas de Debug e não conseguir saber o que esta na memoria e não estou liberando. Por favor me dar uma luz


GOSTEI 0
POSTAR