本文整理自网络,侵删。
uses CommCtrl;
ListView1.Brush.Bitmap:=MyImage.Picture.Bitmap;
ListView1.Brush.Bitmap.Transparent:=true;
SetBkMode(ListView1.Canvas.Handle, TRANSPARENT);
ListView1.Perform(LVM_SETTEXTBKCOLOR,0,LongInt(CLR_NONE));
ListView_SetBKColor(ListView1.Handle, CLR_NONE);
相关阅读 >>
Delphi xe7 android 实现的在线更新app的一个程序
Delphi xe8中的firemonkey应用程序将文本复制到剪贴板
更多相关阅读请进入《Delphi》频道 >>