写一个控件,继承自TListView,重新处理WM_ERASEBKGND消息即可。或者:
UListView.WndProc := UWndProc;
....
procedure TfrmMain.UWndProc(var Message: TMessage);
begin
case Message.Msg of
WM_ERASEBKGND:
begin
...//此处添加代码。
end;
....
end;
end; 载自别人的回答,我没有做过
http://www.csdn.net/expert/Topic/87/87901.shtm
UListView.WndProc := UWndProc;
....
procedure TfrmMain.UWndProc(var Message: TMessage);
begin
case Message.Msg of
WM_ERASEBKGND:
begin
...//此处添加代码。
end;
....
end;
end; 载自别人的回答,我没有做过
http://www.csdn.net/expert/Topic/87/87901.shtm
解决方案 »
- 新人求教,如何在两个表里求最大值和不同值。
- 递归搜文件的问题
- IWDbGrid 如何修改里面的值
- 刚学Delphi 请问怎么在Delphi中添加一Image控件?
- 很久没来,希望认识的高手还在。Invalid pointer operation
- 100元有那位朋友能做这个系统登陆功能模块
- 在DLL的导出过程的参数中如何使用引用传递(var),以供VC成功调用?或请推荐变通方案!
- FastReport 问题!请各位指教!多谢
- 函数6
- TDataSetScrollProc=procedure(Dataset:TDataSet) of object;什么意思,使用有什么好处?
- flash + delphi开发???
- delphi6中还有BDE和ADO吗?它们被淘汰了吗?现在还有必要用它们来学数据库的开发吗?
mylist.Paint(.....);message WM_PAINT;
begin
//paint
Ttreeiew.Paint();
end;