Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

terça-feira, 7 de agosto de 2012

DELPHI - Listando formulários abertos da aplicação

Reações: 
//Adicionar um memo em uma aplicação nova, e um botão, no evento do botão Onclick adicionar:
var
  i : integer;
begin
  Memo1.Lines.Clear;
  for i := 0 to Screen.FormCount -1 do
  begin
    Memo1.Lines.Add(Screen.Forms[i].Name);
  end;
end;

//Pode-se chamar um form especifico por exemplo:

var
  i : integer;
begin
  Memo1.Lines.Clear;
  for i := 0 to Screen.FormCount -1 do
  begin
    if (Screen.Forms[i] is TFrmPrincipal) then
    begin
      Screen.Forms[i].Show;
      Break;
    end;
  end;
end;

//Obs. Somente para forms.

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer