Einzelnen Beitrag anzeigen

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
 
Delphi 2005 Personal
 
#4

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

  Alt 17. Nov 2005, 18:09
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;
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates
  Mit Zitat antworten Zitat