procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('back.bmp');
ListView1.Canvas.Draw(0,0,Bitmap);
ListView1.Color:=clNone;
SetBkMode(Canvas.Handle,TRANSPARENT);
Perform(LVM_SETTEXTBKCOLOR,0,LongInt(CLR_NONE));
ListView_SetBKColor(Handle,CLR_NONE);
end;
加上背景的。
const ARect: TRect; var DefaultDraw: Boolean);
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('back.bmp');
ListView1.Canvas.Draw(0,0,Bitmap);
ListView1.Color:=clNone;
SetBkMode(Canvas.Handle,TRANSPARENT);
Perform(LVM_SETTEXTBKCOLOR,0,LongInt(CLR_NONE));
ListView_SetBKColor(Handle,CLR_NONE);
end;
加上背景的。
第一个问题已经解决,sunboy,等我看到第二个问题的答案就给分了!