Problema con PageControl

[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