VPF::Чтобы ItemIndex в Listbox оставался на месте

AndreyZ53

Дата 16.8.2009, 18:11 (ссылка)

(голосов:3)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: нет
Всего: 2

Всем здравствуйте. Подскажите пожалуйста я в таймере все время в ListBox добавляю Items в цикле прохожу и нужные добавляю, пусть в нем каждый раз добавляется по 10 Items, но они могут быть все время разные, так вот перед тем как я добавляю, то я его ощищаю ListBox1.Clear, но когда я выделяю строку в Листбоксе через секунду оно ставит на 1 строку и так каждый раз, если листбокс не очищать, то все нормально, но оно все время добавляте Items вниз и получается что они просто напросто копируются, так вот можно как-нибудь сделать чтобы оно каждый раз новые добавляла и можно было оставить курсор на той сроке, который выделил, а не чтобы все время он на 1 сроку перемещался

Это сообщение отредактировал(а) AndreyZ53 - 16.8.2009, 18:12

--------------------

https://itbases.ru/

Keeper89

Дата 16.8.2009, 18:28 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

AndreyZ53, вы знаете, что такое знаки препинания? smile

З.Ы. Нормально расскажите о проблеме, тогда думаю тут кто-то разберется.

Это сообщение отредактировал(а) Keeper89 - 16.8.2009, 18:30

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 16.8.2009, 18:53 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Ничё не понял. smile

Но для запоминания позиции есть .ItemIndex - точно знаю.

--------------------

There's nothing left but silent epitaphs.

AndreyZ53

Дата 16.8.2009, 20:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: нет
Всего: 2

Цитата(Keeper89 @ 16.8.2009, 18:28)

AndreyZ53, вы знаете, что такое знаки препинания? smile

З.Ы. Нормально расскажите о проблеме, тогда думаю тут кто-то разберется.

Вообще-то знаю, я просто спешил.
В общем вот проект сделал, когда ставишь указатель в ListBox (выделяешь его), например на 3 Items, то оно все время скидывает его на 1 Items, так вот можно сделать так, чтобы оно его все время оставляло выделенным. И мне обязательно надо, чтобы Items добавлялись на таймере

Это сообщение отредактировал(а) AndreyZ53 - 16.8.2009, 20:08

Присоединённый файл ( Кол-во скачиваний: 8 )

list.rar 167,20 Kb

--------------------

https://itbases.ru/

Keeper89

Дата 16.8.2009, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(AndreyZ53 @ 16.8.2009, 21:06

)

Присоединённый файл ( Кол-во скачиваний: 0 )
Присоединённый файл list.rar 167,20 Kb

У Касперского паранойя или там действительно вирус?

Это сообщение отредактировал(а) Keeper89 - 16.8.2009, 20:11

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 16.8.2009, 20:12 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(AndreyZ53 @ 16.8.2009, 21:06

)

можно сделать так, чтобы оно его все время оставляло выделенным.

Можно: запоминай ItemIndex, а затем на него возвращайся:

Код


a:=ListBox.ItemIndex;
...
ListBox.ItemIndex:=a;

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 16.8.2009, 20:12 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  selIndex: Integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   selIndex := ListBox1.ItemIndex;
   
   ListBox1.Clear;
   ListBox1.Items.Add('111');
   ListBox1.Items.Add('222');
   ListBox1.Items.Add('333');

   ListBox1.ItemIndex := selIndex;
end;

end.

Это сообщение отредактировал(а) Keeper89 - 16.8.2009, 20:14

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

AndreyZ53

Дата 16.8.2009, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: нет
Всего: 2

Цитата(Keeper89 @ 16.8.2009, 20:10)

Цитата(AndreyZ53 @ 16.8.2009, 21:06

)

Присоединённый файл ( Кол-во скачиваний: 0 )
Присоединённый файл list.rar 167,20 Kb

У Касперского паранойя или там действительно вирус?

Я незнаю, после установки компонента FWTrayIcon у меня касперский на все мои компиляции программ начинает ругаться, и тут же их лечит, я не знаю в чем проблема

--------------------

https://itbases.ru/

Keeper89

Дата 16.8.2009, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Ну это конечно будет работать при условии, что кол-во вновь добавленных элементов не будет меньше кол-ва удаленных.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

AndreyZ53

Дата 16.8.2009, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: нет
Всего: 2

Данкинг, Keeper89 Спасибо вам большое

--------------------

https://itbases.ru/

Данкинг

Дата 16.8.2009, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(Keeper89 @ 16.8.2009, 21:10

)

У Касперского паранойя

Да.

Цитата(Keeper89 @ 16.8.2009, 21:10

)

или там действительно вирус?

Нет.

Цитата(AndreyZ53 @ 16.8.2009, 21:13

)

я не знаю в чем проблема

В Касперском. smile

Добавлено через 49 секунд

Цитата(AndreyZ53 @ 16.8.2009, 21:15)

Данкинг, Keeper89 Спасибо вам большое

Ну, мне-то особо не за что. smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »