TVirtaulStringTree-如何在“ idle”上触发FocusChanged？

Question

让我尝试解释一下我的情况：

我使用VirtualTree作为网格，并且每次触发OnFocusChanged事件并且更改了活动焦点节点时，我都有一个同步操作，该操作可能需要0-1秒的时间来阻塞主线程（有时更多）。

我可以忍受这个。
目前，我无法将此逻辑移至工作线程。

当我使用箭头键在网格中上下移动并且焦点节点快速变化时，就会发生我的问题。 由于阻塞，它不平滑。

所以我尝试使用像这样的帖子消息：

procedure TForm1.VTFocusChanged(Sender: TBaseVirtualTree;
    Node: PVirtualNode; Column: TColumnIndex);
begin
  // if (T = 0) or (GetTickCount - T > 1000) then
  begin
    Sender.InvalidateNode(Node);
    PostMessage(Handle, UM_VT_CHANGED, Integer(Sender), Integer(Node));
  end;
end;

procedure TForm1.UMVTChanged(var Message: TMessage);
var
  Tree: TBaseVirtualTree;
  Node: PVirtualNode;
begin
  // T := GetTickCount;
  Tree := TBaseVirtualTree(Message.WParam);
  Node := PVirtualNode(Message.LParam);
  ...
  // DO the job! 
end;

这会有所帮助，但是我仍然意识到我需要一些“空闲”机制。 因此，如果我上下移动箭头，则只有在VirtualTree空闲100毫秒左右时才会触发我的工作过程。 我意识到我需要使用一些计时器，或者也许“吃掉” Post消息并仅处理最后一个，但是我不知道该怎么做。 我用TTimer / GetTickCount尝试了许多变体，看来我真的弄得这么琐碎。

Answer 1

我用一个TTimer解决了这个问题。 想不到更好的方法。 这是基本思想，可以改进：

procedure TForm1.VTFocusChanging(Sender: TBaseVirtualTree; OldNode,
  NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
  var Allowed: Boolean);
begin
  FocusTimer.Enabled := False;  
end;

procedure TForm1.VTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
begin
  FLastNode := Node;
  FocusTimer.Interval := 250;
  FocusTimer.Enabled := True; 
end;

procedure TForm1.FocusTimer_OnTimer(Sender: TObject);
begin
  FocusTimer.Enabled := False;
  if FLastNode = nil then Exit;
  PostMessage(Handle, UM_VT_CHANGED, Integer(VT), Integer(FLastNode));
end;