Problema de Stack Overflow! Como resolver????

15/03/2006

Pessoal, vejam o codigo abaixo:

procedure TForm1.Reposiciona(ParentPanel: TWinControl; XPBar: TJvXPbar);
var
  i : integer;
begin
  for i := 0 to ComponentCount -1 do
    if (Components[i].ClassType = TJvXPBar) then
      if (TJvXPBar(Components[i]).Parent = ParentPanel) then 
        TJvXPBar(Components[i]).Collapsed := True;
  XPBar.Collapsed := False;
end;

os menus (JvXPBar) est�o dentro de TPanels separados
por categorias (clientes, fornecedores, relat�rios, etc)
qdo um menu for clicado, todos os outros dever�o ser
fechados (collapsed = true) e somente o indicado como par�metro
dever� ficar aberto (collapsed = false)

para chamar o procedimento eu uso:

Reposiciona( (Sender as TJvXPBar).Parent, (Sender as TJvXPBar) );

Reposiciona(Panel3, JvXPBar1);

esse proc ao ser executado est� gerando erro de Stack Overflow, algu�m sabe me dizer se tem algo de errado????

bye

Eniorm

Curtir t�pico + 0

Responder

Posts

15/03/2006

Siam

Stack overflow deve estar ocorrendo no n�mero de chamadas � procedure Reposiciona e n�o dentro dela.

Responder

Gostei + 0

15/03/2006

Eniorm

o problema � q eu s� fiz uma chamada e da erro!

Responder

Gostei + 0

15/03/2006

Siam

A chamada � Reposiciona est� dentro de algum evento ?

Responder

Gostei + 0