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

Вниз

List.View.Selected - как правильно использовать?   Найти похожие ветки 

← →
Zn   (2004-04-21 12:32) [0]

Ув. мастера! Как сделать, чобы при выделении элемента в ListView его Caption отображалось в Edit.text. Я делаю так:
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
 Selected: Boolean);
begin
Edit1.Text:=ListView1.Selected.Caption;
end;
Но это работает только один раз, потом ошибка доступа. В хелпе написано об этом, но я не совсем понял. Помогите!

---

← →
Zn   (2004-04-21 12:32) [0]

Ув. мастера! Как сделать, чобы при выделении элемента в ListView его Caption отображалось в Edit.text. Я делаю так:
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
 Selected: Boolean);
begin
Edit1.Text:=ListView1.Selected.Caption;
end;
Но это работает только один раз, потом ошибка доступа. В хелпе написано об этом, но я не совсем понял. Помогите!

---

← →
panov ©   (2004-04-21 12:34) [1]

if Selected
 then Edit1.Text:=Item.Caption
 else Edit1.Text:="";

---

← →
panov ©   (2004-04-21 12:34) [1]

if Selected
 then Edit1.Text:=Item.Caption
 else Edit1.Text:="";

---

← →
VMcL ©   (2004-04-21 12:35) [2]

>>Zn  (21.04.04 12:32)

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
 if ListView1.Selected = nil then
   Edit1.Text := "(ничего не выбрано)"
 else
   Edit1.Text := ListView1.Selected.Caption;
end;

?

---

← →
VMcL ©   (2004-04-21 12:35) [2]

>>Zn  (21.04.04 12:32)

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
 if ListView1.Selected = nil then
   Edit1.Text := "(ничего не выбрано)"
 else
   Edit1.Text := ListView1.Selected.Caption;
end;

?

---

← →
Zn   (2004-04-21 12:50) [3]

Спасибо!

---

← →
Zn   (2004-04-21 12:50) [3]

Спасибо!

---

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

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

Наверх

Память: 0.46 MB
Время: 0.041 c