Работа с ListView

[nibufep]

Доброго дня!

Имеется код, и по нему 2 вопроса:

procedure TForm.ListView1DblClick(Sender: TObject);
begin
  EX.Clear;
  Item := ListView1.Selected;
  ExtractStrings(['|'], [], PChar(StringList[Item.Index]), EX);
  if not (EX[4] = 'No') then
    if Pos('http://', EX[4]) or Pos('https://', EX[4]) <> 0 then
      ShellExecute(Handle, 'open', '"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"', PWideChar('--user-data-dir="Z:\Soft\Google\Chrome\User Data" -incognito -url "' + EX[4] + '"'), nil, SW_SHOWNORMAL)
    else
      ShellExecute(Handle, 'open', PWideChar('' + EX[4] + ''), nil, nil, SW_SHOWNORMAL)
  else
    ShowMessage('Ссылка / Путь не задан.');
end;

1) Если кликнуть по пустому месту в списке, то выскачит ошибка, как сделать проверку ,чтобы если не по ячейке кликаешь, то нечего не происходило. И еще если выделить 2 и более ячейки и кликнуть по одной из них то тоже выдаст ошибку, как можно сделать проверку на то чтобы кликать можно было только по 1 ячейке иначе тоже чтобы нечего не происходило.

2) Таких ListView у меня много, можно чтобы не писать один и тот же код во всех, написать как-то функцию в которую можно было-бы просто передать по какому ListView кликают и на какую ячейку и все остальное сделать уже в функции?

[Вадим Мошев]

Относительно второго вопроса.
1. На форме выделяете все ListView, для которых вы пишете обработчик.
2. В инспекторе объектов в разделе EVENTSвыбираете ваше событие (onDblClick)
3. Для него пишете обработчик (обработчик будет один, но он будет работать на все выбранные компоненты)
4. в начале обработчика пишете:

var currentListView: TListView;

Сразу после begin пишете так

currentListView:=TListView(sender);

5. Далее к ListView обращаетесь через переменную currentListView

______

Теперь. не совсем по вашему вопросу, но по вашему коду

if not (EX[4] = 'No') then

Неграмотная запись. Так записывать будет грамотнее:

if EX[4] <> 'No' then

__________

if Pos('http://', EX[4]) or Pos('https://', EX[4]) <> 0 then

Этот код у вас компилируется? Просто, насколько я знаю, функция Pos возвращает целочисленное значение и оно не может быть операндом логического выражения.

[vlad1389]

Если кликнуть по пустому месту в списке, то выскачит ошибка

if ListView1.ItemIndex = -1 then Exit;

или

if ListView1.Selected = nil then Exit;

В начале кода должно помочь

Таких ListView у меня много

Используйте Sender

if TListView(Sender).ItemIndex = -1 then Exit;

и т.д. по аналогии. В обьект-инспекторе назначьте обработчик для всех ListView эту процедуру.

[Вадим Мошев]

Не забыть ListView1 поменять на currentListView

[nibufep]

Сообщение от Вадим Мошев

Относительно второго вопроса.
1. На форме выделяете все ListView, для которых вы пишете обработчик.

А как это сделать? В Object inspector пытаюсь выделить зажимая Alt нечего не выходит...

[vlad1389]

Там это делается просто мышкой без комбинаций клавиш. Справа от обработчика в выпадающем списке выбираете нужную процедуру. И так для каждого ListView.

[cotseec]

...
4. в начале обработчика пишете:

var currentListView: TListView;

Сразу после begin пишете так

currentListView:=TListView(sender);

5. Далее к ListView обращаетесь через переменную currentListView
...

имхо, гораздо проще написать сразу

var currentListView: TListView absolute Sender;

и пункт 4 не нужен - можно сразу пользоваться currentListView без приведения, на свой страх и риск (м.б. этот обработчик подключен не только для TListView)

[nibufep]

Спасибо за замечание. Не знал о такой конструкции. Смысл ясен.

всем большое спасибо за помощь!

[northener]

Сообщение от nibufep

А как это сделать? В Object inspector пытаюсь выделить зажимая Alt нечего не выходит...

Как обычно в винде выделять несколько элементов знаешь? В проводнике например. Щелчком выделяешь один, затем зажимаешь Shift и щелкаешь по всем остальным. (При выделении более чем одного компонента на форме соответствующие квадратики выделения меняют свой цвет на темно-серый).
Теперь в Инспекторе объектов можешь всем выделенным назначить одно и то же значение.