Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.038 c
