Определить, получает ли пользователь фокус компонента по вкладке или по клику

Поскольку фокус, достигнутый нажатием, всегда будет генерировать событие mousedown перед событием onEnter, вы можете установить событие в mousedown, говоря «gMousedown» := true, а затем в событии OnEnter вы можете проверить, было ли mousedown. Не забудьте сбросить gMousedown в false в событии onMouseUp.

Чтобы узнать, был ли фокус получен с помощью tab или с помощью щелчка мыши, вам нужно проделать некоторую детективную работу.

1. Вот код, который обеспечивает фокус при нажатии табуляции.

procedure TBaseVirtualTree.WMKeyUp(var Message: TWMKeyUp);

begin
  inherited;

  case Message.CharCode of
    VK_SPACE:
     .... [snip] ....
     VK_TAB:
       //This method causes a flurry of event handlers to be called.
       EnsureNodeFocused(); 
  end;
end;

2. VTV имеет два события для смены фокуса: OnFocusChanged и OnFocusChanging в дополнение к стандартным событиям OnEnter и OnExit.
   Я понятия не имею, какое из них лучше всего соответствует вашим потребностям, вам придется поэкспериментировать.

Предположим, что фокус всегда устанавливается с помощью мыши, если мы не можем доказать, что он был получен с помощью tab. Это немного шаткое предположение, но неважно.

Сначала мы используем интерпозер для переопределения обработчика сообщений WMKeyUp.
WMKeyUp является закрытым, но, к счастью, обработчики сообщений всегда можно переопределить, даже если они частные.

Промежуточный элемент
Вы можете использовать хитрость, называемая вставкой для переопределения VST в соответствии с нашими потребностями.
Из-за правил области действия "улучшенный" TVST занимает место VST по умолчанию. Это не мешает потоковой передаче или созданию форм или чему-либо еще. Это просто работает.

type
  TVirtualStringTree = class(VirtualTrees.TVirtualStringTree)
  private
    FTabPressed: boolean;
  protected
    procedure WMKeyUp(var Message: TWMKeyUp); message WM_KEYUP;
    property TabPressed: boolean read FTabPressed;
  end;

  TForm56 = class(TForm)
    VirtualStringTree1: TVirtualStringTree;
    ....


procedure TVirtualStringTree.WMKeyUp(var Message: TWMKeyUp);
begin
  case Message.CharCode of
    VK_TAB: FTabPressed:= true;
    else FTabPressed:= false;
  end; {case}
  inherited;
  FTabPressed:= false;
end;

Обработчики событий фокуса
Используйте один из этих два три обработчика событий.

//use the standard onEnter....
procedure TForm56.VirtualStringTree1Enter(Sender: TObject);
begin
    if VirtualStringTree1.TabPressed then .....
  else ....
end;

//... or use this event, or...
procedure TForm56.VirtualStringTree1FocusChanged(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex);
begin
  if VirtualStringTree1.TabPressed then .....
  else ....
end;

//.... this event if you want to mess with the focus.
procedure TForm56.VirtualStringTree1FocusChanging(Sender: TBaseVirtualTree;
  OldNode, NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
  var Allowed: Boolean);
begin
  Allowed:= VirtualStringTree1.TabPressed; //just a silly example.
end;