Форум программистов [Powered by Invision Power Board]

Код

uses ... CommCtrl, XPMan;

type
  TListView = class(ComCtrls.TListView)
  private
    FHeaderHandle: HWND;
    procedure WMNotify(var AMessage: TWMNotify); message WM_NOTIFY;
  protected
    procedure CreateWnd; override;
  end;
...
const
  LVS_EX_DOUBLEBUFFER = $10000;
  LVS_EX_BORDERSELECT = $8000;
  HDF_SORTUP = $0400;
  HDF_SORTDOWN =$0200;
...
procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
var
  Header: HWND;
  Item: THDItem;
  I: Integer;
begin
  Header := ListView_GetHeader(ListView1.Handle);
  ZeroMemory(@Item, SizeOf(Item));
  Item.Mask := HDI_FORMAT;
  Header_GetItem(Header, Column.Index, Item);

  if (Item.fmt and HDF_SORTUP) = HDF_SORTUP then
  begin
    Item.fmt := Item.fmt and not (HDF_SORTUP or HDF_SORTDOWN); // remove both flags
    for I := 0 to ListView1.Columns.Count - 1 do Header_SetItem(Header, i, Item);
    Item.fmt := Item.fmt or HDF_SORTDOWN; //include the sort descending flag
    Header_SetItem(Header, Column.Index, Item);
  end
  else
  if (Item.fmt and HDF_SORTDOWN) = HDF_SORTDOWN then
  begin
    Item.fmt := Item.fmt and not (HDF_SORTUP or HDF_SORTDOWN); //remove both flags
    for I := 0 to ListView1.Columns.Count - 1 do Header_SetItem(Header, i, Item);
    Item.fmt := Item.fmt or HDF_SORTUP; //include the sort ascending flag
    Header_SetItem(Header, Column.Index, Item);
  end
  else
  begin
    Item.fmt := Item.fmt and not (HDF_SORTUP or HDF_SORTDOWN); //remove both flags
    for I := 0 to ListView1.Columns.Count - 1 do Header_SetItem(Header, i, Item);
    Item.fmt := Item.fmt or HDF_SORTDOWN; //include the sort ascending flag
    Header_SetItem(Header, Column.Index, Item);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  dwStyle: DWORD;
begin
  dwStyle:= ListView_GetExtendedListViewStyle(ListView1.Handle);
  dwStyle:= dwStyle or LVS_EX_DOUBLEBUFFER;
  ListView_SetExtendedListViewStyle(ListView1.Handle, dwStyle);
end;

{ TListView }

procedure TListView.CreateWnd;
begin
  inherited;
  FHeaderHandle := ListView_GetHeader(Handle);
end;

procedure TListView.WMNotify(var AMessage: TWMNotify);
begin
  case AMessage.NMHdr.code of
    HDN_ENDTRACKA, HDN_ENDTRACKW: AMessage.Result := 0;
  else
    inherited;
  end;
end;