13/06/19 18:13:38.22 .net
>>316がバグってたので修正版
procedure TForm1.OnListViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
col,row: Integer;
intX,columnX: Integer;
begin
if (ListView1.Selected = nil) then exit;
intX := X - ListView1.Selected.Position.X;
row := ListView1.Selected.Index;
columnX := 0;
for col := 0 to ListView1.Columns.Count-1 do
begin
Inc(columnX, ListView1.Columns[col].Width);
if (intX < columnX) then break;
end;
ShowMessage('col=' + IntToStr(col) + ' row=' + IntToStr(row));
end;