Problema con PageControl

[jesconsa]

Hola de nuevo. He ido ejecutando paso a paso y cuando el Tree rellena los nodos se queda indefinidamente en su rutina:

Código Delphi [-]
function MsgHookProc(Code: Integer; CurrentProcess: Cardinal; HookStruct: PCWPStruct): integer; stdcall;
begin
  case HookStruct.Message of
  WM_WINDOWPOSCHANGING, WM_WINDOWPOSCHANGED:
     begin
       if Assigned(FocusGrid) then
         FocusGrid.MoveFocusHelper;
     end;
  end;

  Result := CallNextHookEx(MsgHook, Code, CurrentProcess, LParam(HookStruct))
end;

Es esto normal?.....Parece como si el Tree acaparara (sin yo hacer nada en codigo) todo el tiempo del procesador o algo parecido y asi no dejara que se pinta bien el PageControl...

Saludos
Jesus

[jesconsa]

Y de nuevo...Efectivamente, sigo con el paso a paso y entra contiuamente el Tree en su rutina OnGetText para pintar el caption de cada nodo:

Código Delphi [-]

procedure TForm1.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
    CustomerRecord : PTreeData;
begin
CustomerRecord := Sender.GetNodeData(Node);

case Column of
  0: begin
        CellText := CustomerRecord.NCaption;
        if(CustomerRecord.Chk=True) then Node.CheckState:=VirtualTrees.csCheckedNormal
            else Node.CheckState:=VirtualTrees.csUncheckedNormal;

     end;
  1: if VST1.GetNodeLevel(Node)=2 then CellText := DateToStr(CustomerRecord.NColumna1);
  2: if VST1.GetNodeLevel(Node)=2 then CellText := IntToStr(CustomerRecord.NColumna2);
  3: if VST1.GetNodeLevel(Node)=2 then CellText := CustomerRecord.NColumna3;
end;

end;

........Es este su comportamiento normal?, no deberia de entrar en esta rutina cuando hay algun cambio o se hace algo con el raton (etc) y no continuamente?

Saludos
Jesus

[jesconsa]

Pues si,..es asi...He puesto Un panel, dentro un PageControl y en una de los tabs del PageCOntrol un VirtualTreeView,..en cuanto he definido el OnGetText no ha salido de ahi......Sin tocar ni propiedades del Tree ni nada....No es raro?.....

Saludos
Jesus