失去焦点的时候模拟选中状态

  if Item.Selected and not Focused then
  begin
    Canvas.Font.Color := clHighlightText;
    Canvas.Brush.Color := clHighlight;
  end;