Fórum Percorrer todos os forms do projeto #332099
26/10/2006
0
Por acaso alguém sabe de uma rotina onde posso percorrer todos os forms do projeto para pegar os nomes e os captions desses forms?
Valew!
Kenji_rh
Curtir tópico
+ 0Post mais votado
26/10/2006
If frmPrincipal.MDIChildCount>0 Then
For A:=frmPrincipal.MDIChildCount-1 DownTo 0 Do
Begin
Titulo:=MDIChildren[A].Caption;
Nome:=MDIChildren[A].Name;
End;Agora, se for SDI eu já não sei... :-P
Tiagorocha
Gostei + 1
Mais Posts
26/10/2006
Kenji_rh
Gostei + 0
26/10/2006
Output
procedure TfrmPrincipal.btnVerificarJanelasClick(Sender: TObject);
var
i: integer;
nome, caption: string;
begin
for i:= 0 to Screen.FormCount - 1 do
begin
if Screen.Forms[i].Name <> frmPrincipal.Name then
begin
if Screen.Forms[i].Visible then
begin
nome:= nome + ´ - ´ + Screen.Forms[i].Name;
caption:= caption + ´ - ´ + Screen.Forms[i].Caption;
end;
end;
end;
Application.MessageBox(Pchar(´Nome dos Forms: [´ + nome + ´]´ + 13 + ´Caption dos Forms: [´ + caption + ´]´),´Teste com form´, mb_Ok + mb_IconInformation);
end;Qualquer coisa posta ae
Gostei + 0
27/10/2006
Kenji_rh
Valew pela força da mesma forma!!
Gostei + 0
27/10/2006
Kenji_rh
Valew pela força da mesma forma!!
Gostei + 0
15/03/2018
Walison Magalhães
<br />
Valew pela força da mesma forma!!<br />
<br />
<br />
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)