请问如何让ListView中被选中的纪录以突出的颜色显示？

[whulph]

比如我有一个Button和一个ListView
单击Button时，随即的让ListView的某个Item的Selected属性为true,我想要实现的效果就是在界面中让这个Item突出显示，就像这个Item被单击时会以突出的颜色显示那样。请问该怎么做?
procedure TForm1.ButtonClick(Sender: TObject);
var
I: Integer;
begin
Randomize;
I := Random(ListView1.Items.Count-1);
ShowMessage(IntToStr(I));
ListView1.Items[I].Selected := true;
end;

[whulph]

请问ShowMessage()方法运行时，点“OK”按钮将这个弹出框关掉时，系统都作了什么？
为什么我在SetFocus()方法前加上这句就能正常突出显示被选择的Item,去掉这句就不行了。
另外，怎么获得当前的焦点在哪个控件上？

[erhan]

Form1.ActiveControl表示焦点在哪上面

[ithinkthereforeiam]

最后加一句：
ListView1.SetFocus;

[hmilyice]

对

[erhan]

或者把ListView1.HideSelection设为false;