How to make the ListView of planar column head

Create a new application , Place one on the form ListView Control and a button control , then paste the following code , in the code about API and Constant Reference Windows Unit , The method is based on the Ctrl Key , and then click the left mouse button

Unit unit1;<?xml:namespace prefix = o ns = "Urn:schemas-microsoft-com:office:office"/>

Interface

Uses

Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,

Dialogs, Stdctrls, Comctrls;

Type

TForm1 = Class (Tform)

Listview1:tlistview;

Button1:tbutton;

procedure Button1Click (sender:tobject);

Private

{Private declarations}

Public

{public declarations}

end;

Var

Form1:tform1;

Implementation

{$R *.DFM}

Procedure Tform1.button1click (Sender:tobject);

Const

Lvm_getheader = $1000 + 31;

Var

hheader:thandle;

Style:dword;

Begin

hheader: = SendMessage (Listview1.handle, lvm_getheader, 0, 0);

Style: = GetWindowLong (Hheader, Gwl_style);

style: = Style XOR $;

SetWindowLong (Hheader, Gwl_style, STYLE);

setwindowpos (listview1.handle, form1.handle, 0, 0, 0, 0,swp_nozorder or swp_nosize or Swp_nomove or SW P_drawframe);

End

End.