Erlan_krg

18 минут назад, krapotkin сказал:

нельзя удалять себя из обработчика себя

нужно запустить

TTask.Run(procedure begin TThread.Synchronize(procedure begin ваше действие с компонентом end) end);

Спасибо! Я уже накостылял )))))

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;

Всем привет! Встретился с одной проблемой. Удаляю 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 и удалить итем то ошибка не выскакивает)

что за прикол?

32 минуты назад, Равиль Зарипов (ZuBy) сказал:

вы будете получать артефакты.

да есть такое

спасибо за идею!

Запустил пример из поставки, все работает, экран ожидания загрузки отображается. Пробую в своем проекте, не отображается. Попробовал в анонимном потоке также как в примере поставки, все заработало. Можно ли использовать fgActivityDialog  вне потоков???