1. Flood v. 217
    AVANRO07.05.2025 в 15:51от
  2. Получите совершенно бесплатно токен 1win!
    GroveTeam2349007.05.2025 в 15:46от
  3. ✅ маркет steam аккаунтов от faker [регистрация строго на отдельном IP]
    shoyanami07.05.2025 в 15:39от
  4. ✔️ продам аккаунты ⭐ под спам ✌ от 10 lvl, оформление, часы в играх
    drozdov mary07.05.2025 в 15:35от
  5. Реклама в соц.сетях и поисковиках
    Getadsmaster07.05.2025 в 15:28от
  6. ❤️$1.8 /lvl10 /доступ к почте, использованной при регистрации / steamapi=0.25$❤️
    Quent7707.05.2025 в 15:18от
  7. Казино телеграм бот ( 2 версии )
    eduard133707.05.2025 в 15:09от
  8. Крипто-биржа с темным дизайном
    eduard133707.05.2025 в 15:09от
  9. Крипто-биржа с светлым дизайном
    eduard133707.05.2025 в 15:09от
  10. Крипто-обменники с админкой
    eduard133707.05.2025 в 15:09от
  11. ↣☛покупка cs skins, hold\trade, происхождение неважно, моментальные выплаты☚↢
    _Moriarty_07.05.2025 в 15:00от
  12. Vps и выделенные серверы waicore 1-25gbps
    Waicore07.05.2025 в 14:59от
  13. Новый провайдер at&t | редкий тип ip | суперчистый
    Lumiproxy07.05.2025 в 14:56от
  14. Proxy4free самый популярный поставщик прокси-серверов на рынке.
    proxy4free amy07.05.2025 в 14:52от
  15. Играй в казино бесплатно (верну депозит в случае проигрыша)
    MakaveliCrooks07.05.2025 в 14:48от
  16. First vpn service - single, double, quad vpn. сша, европа, азия, оффшор, снг
    FirstVPN07.05.2025 в 14:46от
  17. ⎝⭐️digiproxy⭐️ - lte, budget, resi, static, rotating, sticky proxies⎠
    digiproxy07.05.2025 в 14:43от
  18. [#1] быстрые приватные ipv4 прокси [лучшие цены в мире]. легендарный шоп
    ProxySoxy07.05.2025 в 14:38от
Загрузка...
  1. Читы valorant bluew приватный чит на valorant + спуфер 2025
    467
    WizeWamter
  2. Арбитраж трафика | by stritksy | 1 часть
    347
    Stritksy
  3. ☘️5e|b5|pw|pwa|qq|wechat|weibo|baidu|douyin [cao-shop]☘️
    248
    ★︎VaViLoN★︎
  4. Продам reddit аккаунты | магазин reddit аккаунтов
    229
    Roun
  5. Grand theft auto 6 получила дату выхода
    188
    FaaeRw
  6. В steam начались скидки на серию battlefield
    180
    FaaeRw
  7. Набор сотрудников по работе eu
    173
    WorkerP2P
  8. 1 ton free
    153
    ArtRoyal
  9. Продам аккаунт дота 2 с золотым плащем на рубика.
    147
    Qweeze777
  10. Amd готовит gpu процессоры нового поколения
    147
    FaaeRw
  11. 50 аккаунтов steam 10 lvl бесплатно — участвуй сейчас!
    146
    nxiya
  12. Набор опытных кураторов в новую команду с огромным потенциалом
    132
    KiritoDon
  13. I need a large number of cs2 accounts regarding the trading ban!!
    131
    Nzzh3120
  14. Colorful раскрывает geforce rtx 5060m
    129
    FaaeRw
  15. Tb acc or
    128
    Zhuyuchen411
  16. I need a large number of cs2 accounts regarding the trading ban!!
    123
    Nzzh3120
  17. Отзыв о армор зми - жулики
    123
    VereJet
  18. 1 ton free
    122
    ArtRoyal
Загрузка...
  1. 1 ton free
  2. 1 ton free
  3. 1 ton free
  4. 50 аккаунтов steam 10 lvl бесплатно — участвуй сейчас!
  5. Разработка - tg bots , мульти страничный сайт бесплатно
  6. 50 аккаунтов steam 10 lvl бесплатно — участвуй сейчас!
  7. Розыгрыш 1000 неограниченных steam api! 50 победителей!
  8. Розыгрыш 100 steam аккаунтов (уровень 10) — 10 победителей
  9. Розыгрышь аккаунта steam с рабочим обменом
  10. Розыгрышь аккаунта steam с рабочим обменом
  11. Розыгрышь аккаунта steam с рабочим обменом
  12. Розыгрышь аккаунта steam с рабочим обменом
  13. 5$ ✔️sss union✔️|cn/eu/usa|❤️‍|подмена+maf by trump|
  14. 5$ ✔️sss union✔️|cn/eu/usa|❤️‍|подмена+maf by trump|
  15. 5$ ✔️sss union✔️|cn/eu/usa|❤️‍|подмена+maf by trump|
  16. Luxhost.cc | 15$ на баланс сервиса
  17. Luxhost.cc | бесплатный домен
  18. Luxhost.cc | бесплатный сервер
Загрузка...

Listbox delphi

Тема в разделе "С/С++/Pascal/Delphi", создана пользователем Down Lose, 09.04.2015.

  1. Down Lose

    Down Lose

    Статус:
    Оффлайн
    Регистрация:
    25.03.15
    Сообщения:
    22
    Репутация:
    -4 +/-
    Хочу сделать что бы при клике на определённый текст к примеру было у image1.visibile:=true
    Я пытался что то наковырять но не получилось
    Может ли кто помочь?Буду благодарен!
    Вот что я пытался сделать ( при клике выходила ошибка extented bounds (2002) )
    procedure TForm2.ListBox1Click(Sender: TObject);
    begin
    If (Form2.ListBox1.Selected[2002]) then
    Form2.Image1.Visible:=true;
    end;
     
    09.04.2015
    #1

  3. Nimo

    Nimo

    Статус:
    Оффлайн
    Регистрация:
    06.01.13
    Сообщения:
    48
    Репутация:
    7 +/-
    Выходишь за границы листа. Начнем с того, что нумерация с 0.
     
    09.04.2015
    #2