unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls;

type

  TForm1 = class(TForm)

    lvErrMsgs: TListView;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

  FListViewOldWndProc: TWndMethod;

  procedure ListViewNewWndProc(var Msg: TMessage);

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses

CommCtrl;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

  FListViewOldWndProc := lvErrMsgs.WindowProc;

  lvErrMsgs.WindowProc := ListViewNewWndProc;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  lvErrMsgs.WindowProc := FlistViewOldWndProc;

  FListViewOldWndProc := nil;

end;

procedure TForm1.ListViewNewWndProc(var Msg: TMessage);

var

hdn: ^THDNotify;

begin

if Msg.Msg = WM_NOTIFY then

begin

hdn := Pointer(Msg.lParam);

if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then

Msg.Result := 1

else

FListViewOldWndProc(Msg);

end else

FListViewOldWndProc(Msg);

end;

end.