Перейти к содержанию

slav_z

Пользователи
  • Активность

    205
  • Зарегистрирован

  • Посещение

  • Победитель дней

    23

slav_z стал победителем дня 5 мая

slav_z имел наиболее популярный контент!

2 Подписчика

Информация о slav_z

  • Звание
    Продвинутый пользователь

Посетители профиля

6 630 просмотров профиля
  1. если нужно просто установить фон для формы можно сделать это без всякого кода и дополнительных ресурсов:
  2. скорее всего стиль у TListBox еще не загружен... и ему нечего еще прокручивать... попробуйте это:
  3. с такими вопросами лучше к семейному психологу.. тут на них не ответят...
  4. System.IOUtils TPath.GetPathRoot(ParamStr(0)) или TDirectory.GetDirectoryRoot(ParamStr(0)) ....если диска в пути нет, функции ведут себя по-разному..
  5. здесь на форуме это все уже обсуждалось... на андроид 11 изменилось расположение системных библиотек... дельфи 10.2 об этом не знает... 10.3.3 еще можно было заставить работать с андроид 11 (исправлением и перекомпиляцией System.pas)... но надо ставить 10.4... надо... sdk и файл манифеста тыркать бесполезно....
  6. Все разработчики при работе с FMX рано или поздно сталкиваются с одной и той же проблемой: необходимо исключить "случайное" срабатывание нажатий элементов внутри скроллбокса во время его скроллинга. Идут годы, а решения так и нет. Давайте попробуем это исправить. Поехали! Запускаем IDE, создаем новый проект, кидаем на форму TVertScrollBox и на него чего-нибудь побольше... запускаем на мобильном устройстве, пытаемся скроллировать, получаем проблемы в виде срабатывания разных событий типа OnClick элементов. Решение состоит в том, чтобы сделать элементы "невидимыми" для событий связанных с действиями пользователя с экраном во время скроллинга. Делаем следующее: Все. Переносим код в базовую форму, делаем его более гибким, убираем все те костыли, которые мы уже успели сделать ранее... Удачи! https://github.com/slav-libx/scroll-click.git
  7. сделайте простейший проект в котором воспроизводится ошибка... и киньте сюда.. а то как в наперстки играем...
  8. ListBox1.Items.AddStrings(TDirectory.GetFiles('c:/','*'+Exp,TSearchOption.soAllDirectories)); но работать она будет не быстро.. ей надо всю структуру диска С обойти... лучше ее в отдельном потоке запускать...
  9. тогда понятно... эта функция только из определенного каталога файлы получает... ща попробую..
  10. смотрите причину у себя.. значение Exp указано? в корне диска С точно есть такие файлы? после нигде нет очистки ListBox?
  11. да... но именно эта строка не только получит все нужные файлы из указанной директории, но и добавит их в ListBox
  12. вот ваш код с ListBox... все работает без ошибок procedure TForm1.FormCreate(Sender: TObject); begin Exp:='.txt'; ListBox1.Items.AddStrings(TDirectory.GetFiles(TDirectory.GetCurrentDirectory,'*'+Exp)); end; procedure TForm1.Button1Click(Sender: TObject); var FileIndex, FileName : String; I : Integer; begin randomize; FileIndex := IntToStr(random(5000)); for I := 0 to ListBox1.Items.Count-1 do begin FileIndex := IntToStr(StrToInt(FileIndex) + 1); FileName := FileIndex + Exp; TFile.Copy(ListBox1.Items[I], FileName); end; //Timer2.Enabled := False; end; проверьте ВСЕ ваши файлы doc на наличие флага "только для чтения"... место на диске есть?... без вашего проекта сложно угадать причину...
×
×
  • Создать...