TListView und Spalte

[DeddyH]

Probier es mal so:

Delphi-Quellcode:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
Var
  I   : Integer;
  aLeft   : Integer;
  CurCol: integer;
begin
  aLeft:=0;
  CurCol := -1;
  For I:=0 To Pred(ListView1.Columns.Count) Do
    Begin
      If (X >= aLeft) and (X <= (aLeft + ListView1.Columns[I].Width)) Then
        begin
          CurCol := i;
          Break;
        end
      Else
        aLeft:=aLeft + ListView1.Columns[I].Width;
    End;
  MessageBox(0, PAnsiChar(IntToStr(CurCol)), 'SubItem', mb_OK);
end;

In operiert mit Mengen. Mengenelemente dürfen aber maximal den Wert 255 haben, die Summe der Spaltenbreiten ist aber größer, deshalb klappt das nicht.