Fórum Function ... #237713

for i:=0 to groupbox1.componentcount -1 do
if groupbox1[i] is TPanel then
TPanel(groupbox1[i]).Align := alClient;


nao entendi bem o que vc quer fazer , mas me parece que esta nao e a melhor solucao

Não na verdade imagine eu tenho um menu com várias opções, cada vez que voce clica nessas
opções ela expande um GroupBox com a propriedade align para alclient e esconde os demais
com a prorpiedade visible para flase dos outros fora o que voce clicou.
Mas imagine que eu queira visializar o Grupo2 vamos lá:

no onclick deste item do menu

Grupo2.align := alclient;
Grupo2.visible := true;

Grupo1.align := alclient;
Grupo1.visible := true;
Grupo3.align := alclient;
Grupo3.visible := true;
Grupo4.align := alclient;
Grupo4.visible := true;
E assim por diante ...


So que fica ruim então eu poderia criar uma função para chamar tipo ArrumaGrupos(Grupo3);
so que não estou sabendo fazer esta função e preciso de ajuda.

Bom... voce pode atribuir um tag para cada Group de 1 a 10 por exemplo! e dentro da
procedure ArrumaGrupos(Grupo);
var i: integer;
begin
for i:=0 to componentcount-1 do
begin
if (Components[i] is TGroupBox) then
begin
(Components[i] as TGroupBox).Align:= AlCliente;
(Components[i] is TGroupBox).Visible:= false;
end;
end;
end;

Ou voce pode guardar o Grupo Anterior e só mudar ele :

procedure ArrumaGrupos(GrupoAnt,GrupoAtual);
var i: integer;
begin
// Muda só o desses Grupos
end;