Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Как из 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-859
ORFO
2002-06-06 11:36
2002.07.01
Как сохранить результат фильтра таблицы в файл?


6-1118
Бабшанов Марат
2002-04-03 11:18
2002.07.01
Подскажите как создать счетчик посещения сайта на Дельфи


14-1201
vopros
2002-05-28 12:32
2002.07.01
Вот загадки прислали:


14-1202
Sniffer
2002-05-30 18:06
2002.07.01
Я в Шооооооооке!!!!


3-870
Duke2
2002-06-06 06:53
2002.07.01
Вопрос о вложенном SQL