TListView - Spaltengröße verändern, welches Ereignis

[ichbins]

so inetwa:

Delphi-Quellcode:

var
  columns:array of integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:Integer;
  thesame:boolean;
begin
  thesame:=false;
  try begin
    for i:=0 to listview1.Columns.Count-1 do
      if listview1.Columns.Items[i].width<>columns[i] then
        raise exception.Create('Unterschied');
    thesame:=true;
  end except end;
  setlength(columns,listview1.Columns.Count);
  for i:=0 to listview1.Columns.Count-1 do
    columns[i]:=listview1.Columns.Items[i].Width;
  if not thesame then
  begin
    //Aktion
    showmessage('Hat sich verändert.');
  end;
end;