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;
Но это работает только один раз, потом ошибка доступа. В хелпе написано об этом, но я не совсем понял. Помогите!

← →
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;

?

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

Спасибо!

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