Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

TListView   Найти похожие ветки 

← →
BALU1111 ©   (2004-03-29 13:56) [0]

Всем доброго времени суток! Помогите, плиз. Недавно я спрашивал как по двойному клику в TListView узнать номер строки. Однако при двойном клике на пустой строке мне выдается ошибка. Как эту ошибку мне предотвратить?

---

← →
BALU1111 ©   (2004-03-29 13:56) [0]

Всем доброго времени суток! Помогите, плиз. Недавно я спрашивал как по двойному клику в TListView узнать номер строки. Однако при двойном клике на пустой строке мне выдается ошибка. Как эту ошибку мне предотвратить?

---

← →
VMcL ©   (2004-03-29 14:26) [1]

>>Как эту ошибку мне предотвратить?

Изменить свой ДНК.

---

← →
VMcL ©   (2004-03-29 14:26) [1]

>>Как эту ошибку мне предотвратить?

Изменить свой ДНК.

---

← →
Cash ©   (2004-03-30 14:09) [2]

А вНаТуРе это делается так:

Procedure TForm1.ListView1DbClick(Sender: TObject);
begin
 if ListView1.Items.Count > 0 then ShowMessage("String №"+inttostr(ListView1.Selected.Index));
end;

Обрати внимание на полужирное выделение - это то, что нужно :)))

---

← →
Cash ©   (2004-03-30 14:09) [2]

А вНаТуРе это делается так:

Procedure TForm1.ListView1DbClick(Sender: TObject);
begin
 if ListView1.Items.Count > 0 then ShowMessage("String №"+inttostr(ListView1.Selected.Index));
end;

Обрати внимание на полужирное выделение - это то, что нужно :)))

---

← →
Семен Сорокин ©   (2004-03-30 14:19) [3]

тогда уж лучше так:
Procedure TForm1.ListView1DbClick(Sender: TObject);
begin
if Assigned(ListView1.Selected) then
 ShowMessage("String №" + inttostr(ListView1.Selected.Index));
end;

---

← →
Семен Сорокин ©   (2004-03-30 14:19) [3]

тогда уж лучше так:
Procedure TForm1.ListView1DbClick(Sender: TObject);
begin
if Assigned(ListView1.Selected) then
 ShowMessage("String №" + inttostr(ListView1.Selected.Index));
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c