Tatsächliche Breite einer ListView mit ViewStyle vsReport?

[bitsetter]

Hallo,

meist du diese Breite?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Breite, Spalte: integer;
begin
  Breite:= 0;
  for Spalte:= 0 to ListView1.Columns.Count- 1 do
  inc(Breite, ListView1.Columns.Items[Spalte].Width);

  Showmessage('Breite: '+ inttostr(Breite));
end;

Den unsichtbaren Bereich kannst du dann mit Hilfe von ClientWidth errechnen.