Перейти к содержанию
  • Регистрация

Erlan_krg

Пользователи
  • Публикаций

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

  • Посещение

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

  • Звание
    Новичок

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

256 просмотров профиля
  1. Спасибо! Я уже накостылял ))))) procedure TfmAppointment.lvSelectedServicesButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl); begin Timer.Tag := AItem.Index; Timer.Enabled := True; end; procedure TfmAppointment.TimerTimer(Sender: TObject); begin timer.enabled := false; lvSelectedServices.BeginUpdate; if lvSelectedServices.ItemCount > 0 then lvSelectedServices.Items.Delete(Timer.Tag); lvSelectedServices.EndUpdate; end;
  2. Всем привет! Встретился с одной проблемой. Удаляю Item у ListView по нажатию кнопки, которая находится на ListViewItem procedure TfmAppointment.lvSelectedServicesButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl); begin lvSelectedServices.BeginUpdate; if lvSelectedServices.ItemCount > 0 then lvSelectedServices.Items.Delete(AItem.Index); lvSelectedServices.EndUpdate; end; итем удаляется, но потом выскакивает ошибка Access violation at address 60BCB318 и то се бо се у ListView ItemAppearance выставлен на DynamicAppearance помимо родного объекта Text добавил еще один объект Text и кнопку но фишка в чем, если убрать дополнительный объект Text с ListWiewItem и удалить итем то ошибка не выскакивает) что за прикол?
  3. Запустил пример из поставки, все работает, экран ожидания загрузки отображается. Пробую в своем проекте, не отображается. Попробовал в анонимном потоке также как в примере поставки, все заработало. Можно ли использовать fgActivityDialog вне потоков???
×
×
  • Создать...