Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > ListBox

Автор: AcidSlayer 18.6.2009, 14:52

Образовался вопрос.
После нажатия кнопки button1
нужно перейти на строчку выше или ниже.
Зарание спасибо.

Автор: Лапоть 18.6.2009, 15:02

Код


  Inc(ListBox.ItemIndex); // на строку вниз
  Dec(ListBox.ItemIndex); // на строку вниз

Автор: AcidSlayer 18.6.2009, 15:06

Спасибо, извините за офф-топ, но как после
допустим

Код


procedure TForm1.Listbox1Click(Sender: TObject);
begin // После выполнения дейтсвия:
ClipBoard.AsText:=ListBox1.Items[ListBox1.ItemIndex]; // выполняется Dec(ListBox.ItemIndex);
end;

Автор: Лапоть 18.6.2009, 15:11

Не понял...Клик по листбоксу, выделенная строка идёт в клипборду, никто не запрещает после этого изменить ItemIndex.

Автор: AcidSlayer 18.6.2009, 16:01

Всем спасибо, нашел решение

Код


procedure TForm1.Listbox1Click(Sender: TObject);
begin
ClipBoard.AsText:=ListBox1.Items[ListBox1.ItemIndex];
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
end;

Автор: Данкинг 18.6.2009, 16:41

Цитата(AcidSlayer @ 18.6.2009, 17:01

)

Код


ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

Только сделай проверку, чтобы индекс за общее число строк не выходил.