Im ListView OnClick SpaltenIndex heraus finden....

[bitsetter]

Delphi-Quellcode:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   links, Spalte: integer;
begin
 links:= 0;
 for Spalte:= 0 to ListView1.Columns.Count- 1 do
 begin
   if (links<= x) and (x < (links+ ListView1.Columns.Items[Spalte].Width)) then
   break;
   inc(links, ListView1.Columns.Items[Spalte].Width);
 end;
 Showmessage('Spalte: '+ inttostr(Spalte));
end;