Listview, как отследить изменение ширины колонки?

infund
Дата: 10.06.2009 16:09:47
Есть Listview, viewstyle = vsReport. Необходимо ловить изменения ширины колонок. Есть варианты?
DimaBr
Дата: 10.06.2009 16:45:49
TListView = class(ComCtrls.TListView)
  procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
end;

  TForm1 = class(TForm)
    ListView1: TListView;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TListView.WMNotify(var Message: TWMNotify);
begin
  inherited;
  with Message.NMHdr^ do
    case code of
      HDN_ITEMCHANGED: Form1.Label1.Caption := IntTostr(random(1000));
    end;
end;
infund
Дата: 10.06.2009 17:31:33
DimaBr,

Спасибо!