Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
ВнизКак из Listbox двойным нажатием на item удалить ее из Найти похожие ветки
← →
Lizard (2002-06-17 22:18) [0]Как из Listbox двойным нажатием на item удалить ее из
listbox ?
← →
rhf (2002-06-17 22:24) [1]procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
listBox1.items.Delete(listBox1.ItemIndex);
end;
← →
Новенький в Делфи (2002-06-17 23:39) [2]ListBox1.DeleteSelected;
// За орфаграфию не отвечаю :)
← →
Егоров Николай (2002-06-18 02:41) [3]Немножко подправлю rhf :)
function GetFirstSelection(List: TCustomListBox): Integer;
begin
for Result := 0 to List.Items.Count - 1 do
if List.Selected[Result] then Exit;
Result := LB_ERR;
end;
===========================================
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
listBox1.items.Delete(GetFirstSelection(ListBox1));
end;
← →
Егоров Николай (2002-06-18 02:50) [4]Иль есчё просче:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
listBox1.DeleteSelected;
end;
← →
rhf (2002-06-18 02:57) [5]2 Егоров Николай, не понял зачем твое поправление, при двойном клике один выделиться и ве там.....
← →
Егоров Николай (2002-06-18 05:19) [6]2 rhf, а ччёрт его - что-то в голове мелькнуло... :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c