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;