关于ListView自绘的文章.docVIP

N久没来了-写个关于ListView自绘的文章 2008-12-31 14:17 没什么技术,贴代码: unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, StdCtrls, CommCtrl, ExtCtrls, Menus; typeTForm1 = class(TForm)??? lv1: TListView;??? pm1: TPopupMenu;??? procedure FormCreate(Sender: TObject);private??? { Private declarations }??? FHMenu: HMENU;??? FLvOldProc: TWndMethod;??? FLvHandle: THandle;??? procedure LvProc(var Message: TMessage);??? procedure WMNCPaint(var Message: TMessage);??? procedure DrawNCLv(DC: HDC; Rt: TRect);public??? { Public declarations }