TListView+OnDblClick - по выбранному SubItem'у

[XerSon]

Всем привет,

Как в ListView отследить по какому сабитему был сделан дабл клик и в последствии скопировать данные в переменную (DFPath) из определенных сабитемов?

По подобию кода ниже ...

procedure TForm1.LvDataMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  DFPath: String;
  ListItem: TListItem;
  i: Integer;
begin
  ListItem := LvData.GetItemAt(0, Y);
  // получаем item над которым находится курсор
  if (ListItem = nil) or (LvData.Column[0].Width > X) then
    Exit; // если курсор над первой колонкой
  // либо вообще не над итемом то выход
  X := X - LvData.Column[0].Width; // отнимаем размер первой колонки
  for i := 1 to LvData.Columns.Count - 1 do // проходим по цыклу все колонки
  begin
    if LvData.Column[i].Width < X then
      dec(X, LvData.Column[i].Width)
    else
    begin
      DFPath := ListItem.SubItems.Strings[0] + ListItem.SubItems.Strings[1]; // тут в переменную пути, копируем данные из нужных мне сабитемов!!!
      // Если фаил в папке существует
      if FileExists(DFpath) then // то
        // Открываем по указанному пути в проводнике фаил и выделяем его
        ShellExecute(0, nil, 'explorer', PChar(' /select,' + DPpath), nil,
          SW_NORMAL);
      // Очищаем переменную пути
      DFpath := '';
      // если над этой колонкой то выводим ее значение
      break;
    end;
  end;
end;

[Filka]

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  ListItem: TListItem;
  I, X: Integer;
  Pt: TPoint;
  S: string;
begin
  Pt := ListView1.ScreenToClient(Mouse.CursorPos);
  ListItem := ListView1.GetItemAt(0, Pt.Y);

  if (ListItem = nil) or (ListView1.Column[0].Width > Pt.X) then
    Exit;

  X := ListView1.Columns[0].Width;
  for I := 1 to ListView1.Columns.Count - 1 do
  begin
    Inc(X, ListView1.Columns[I].Width);
    if Pt.X < X then
    begin
      S := ListItem.SubItems[0] + ListItem.SubItems[1];
      ShowMessage(S);
      Break;
    end;
  end;
end;

[XerSon]

@Filka

Спасибо, все ок.

[Filka]

Пожалуйста.