选择中的背景列表视图，悬停-Delphi

早上好。。。我正在用Delphi创建一个程序，但我非常习惯于为web HTML、CSS、PHP、JS编程。。。对于网页是非常容易定制任何标签

select {background: #ABEAFF; color: #CCC;}

但是现在对于Delphi，我在自定义Listview时遇到了很多麻烦。。。好吧，我可以添加背景：

TForm4.OnCustomDrawItem procedure (Sender: TCustomListView; Item: TListItem;
   State: TCustomDrawState; var DefaultDraw: Boolean);
var
   Color: TColor;
begin

     if (Trim (Item.SubItems.Strings [0]) = Trim (Item.SubItems.Strings [1])) then Begin
       Color: = RGB (205, 255, 206);
     End else Begin
       Color: = RGB (253, 172, 172);
     end;
     ListaItensHeader.Canvas.Brush.Color: = Color;
  // End;
     memo1.Text: = item.SubItems.Strings [1];
end;

---

但它有一个悬停效果，选择焦点不知道。。。在这些情况下如何更改背景色？

cdsHot in State表示项目已被热跟踪，CDS selected in State of the selected.假设使用VCL，则需要VCL样式。谢天谢地，微软锁定了主题，以实现桌面上的一致性。想要做自己事情的应用程序可以使用VCL样式，但最终会得到一个看起来像1997 WinAmp的应用程序。