| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как из Listbox двойным нажатием на item удалить ее из [D5, D6, Win95/98, WinME]
Lizard © (2002-06-17 22:18:00)Как из Listbox двойным нажатием на item удалить ее из
listbox ?
Егоров Николай (2002-06-18 05:19:00) [1]2 rhf, а ччёрт его - что-то в голове мелькнуло... :)
rhf (2002-06-18 02:57:00) [2]2 Егоров Николай, не понял зачем твое поправление, при двойном клике один выделиться и ве там.....
Егоров Николай (2002-06-18 02:50:00) [3]Иль есчё просче:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
listBox1.DeleteSelected;
end;
Егоров Николай (2002-06-18 02:41:00) [4]Немножко подправлю 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-17 23:39:00) [5]ListBox1.DeleteSelected;
// За орфаграфию не отвечаю :)
rhf (2002-06-17 22:24:00) [6]procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
listBox1.items.Delete(listBox1.ItemIndex);
end;
| |
