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