Delphi的ListView设置了CheckBoxes=True之后，无法再显示SubImages，如何解决

[csdn_nickname_chen]

我发现一个问题，当Delphi的ListView设置了CheckBoxes=True之后，就无法再显示SubImages，如何解决，是不是有什么API可以将SubImages显示出来？？

[linkyou]

这是无法解决的，可以在checkboxes里设置Image,或者在checkboxes后面画SubImages

[csdn_nickname_chen]

本来我想自己做两个Checked图片，一个选中，一个不选中，这样就可以不用CheckBoxes=True了。
但这样发现不美观，当选中一行时，它将那两个图片也选中了，非常不美观。
而用CheckBoxes=True时，就不存在问题，当选中一行时，选中行的显示效果不涉及CheckBox区域，所以显得比较美观。

不知各位还有没有什么高见

[csdn_nickname_chen]

有高手知道吗？

[csdn_nickname_chen]

我知道原因了，研究了之后我发现这是Borland的一个Bug，大家看如下VCL代码：
procedure TCustomListView.ResetExStyles;
var
Styles: DWORD;
TempImages: TCustomImageList;
begin
if HandleAllocated then
begin
TempImages := nil;
if StateImages <> nil then
begin
TempImages := StateImages;
StateImages := nil;
end;
Styles := LVS_EX_SUBITEMIMAGES or LVS_EX_INFOTIP;
if FCheckboxes then Styles := LVS_EX_CHECKBOXES;

//上面这条语句明显的错误，就是因为它导致SubImages无法显示
//得改成Styles :=Styles or LVS_EX_CHECKBOXES;


if FGridLines then Styles := Styles or LVS_EX_GRIDLINES;
if FHotTrack then Styles := Styles or LVS_EX_TRACKSELECT;
if FRowSelect then Styles := Styles or LVS_EX_FULLROWSELECT;
if FFlatScrollBars then Styles := Styles or LVS_EX_FLATSB;
if FFullDrag then Styles := Styles or LVS_EX_HEADERDRAGDROP;
if FShowWorkAreas then Styles := Styles or LVS_EX_MULTIWORKAREAS;
if htHandPoint in FHotTrackStyles then
Styles := Styles or LVS_EX_ONECLICKACTIVATE
else if FHotTrackStyles * [htUnderlineHot, htUnderlineCold] <> [] then
Styles := Styles or LVS_EX_TWOCLICKACTIVATE;
if htUnderlineHot in FHotTrackStyles then
Styles := Styles or LVS_EX_UNDERLINEHOT;
if htUnderlineCold in FHotTrackStyles then
Styles := Styles or LVS_EX_UNDERLINECOLD;
ListView_SetExtendedListViewStyle(Handle, Styles);
if TempImages <> nil then
StateImages := TempImages;
end;
end;

[王集鹄]

不是Bug，即使改成Styles :=Styles or LVS_EX_CHECKBOXES;编译后也一样不能～～

可以把的宽度设置成多一些放两个图StateImages.Width := 32 + 2;

[csdn_nickname_chen]

不会吧，你有4颗星了，怎么还搞错啊
我实践成功之后才发上来的的啊，我写了一个函数
procedure DisplayCheckBoxedAndSubImages(AListView:TListView);
var
Styles:DWORD;
begin
Styles:=ListView_GetExtendedListViewStyle(AListView.Handle );
Styles:=Styles or LVS_EX_CHECKBOXES or LVS_EX_SUBITEMIMAGES or LVS_EX_INFOTIP;
ListView_SetExtendedListViewStyle(AListView.Handle,Styles);
end;
如果要同时显示CheckBoxes和SubImages，先调用一下上面的函数，就解决问题了。

你的这个建议我去试试，看行不行。