IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Построение виртуального списка...
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 131
Пол: Мужской

Репутация: -  0  +


Есть событие OnData в компоненте TListBox...Не могу разобраться с одним из пар-ов обработчика этого события...
Там есть список типа TwinControl...Так вот к Вам вопрос, его просто надо объявить или что?
Код

var
spisok:Twincontrol;
ListBox1:TlistBox;
S:string;
....
S:='OK';
ListBox1.Ondata(Spisok,1,S);

В список строка не добавляется...выдаётся ошибка...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Не надо ничего добавлять...

Смотри:
procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
var Data: String);
begin
Data := 'this is a string #' + inttostr(index);
end;


Не забывай при создании формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Style := lbVirtual; // Это - обязательно ...
listbox1.Count := 100; // Сколько строк ты хочешь инициализировать
end;
Все, теперь при создании формы в ListBox длбавится 100 строк, сгенерированных так, как показано в OnData...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.11.2020 0:30
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name