Tips (1541)

Tip Rating (7):

procedure TFormMain.Listview1ColumnClick(Sender: TObject; Column: TListColumn);
var
  ColumnNr: Integer;
begin
  ColumnNr := Listview1.Column[Column.Index].Index;
  ShowMessage(IntToStr(ColumnNr));
end;