169 похожих чатов

Привет, ребята у меня сложности с таймером который должен удалять

объекты созданные в ран-тайме...

Вот у меня есть класс TObj
Tobj = class(TObject)
Form: TForm;
public
constructor Create;
destructor Destroy; override;
end;

Я создаю TObj и помещаю его в LIST_FORMS: TObjectList<Tobj>;

Далее.. К примеру создано несколько таких TObj, как мне их уничтожить с помощью таймера через 10 сек их существования?
К примеру создал 10 TObj.
Теперь мне нужно в таймере отсчитать 10 сек и LIST_FORMS.Delete(x);
Но проблема в том, что создаются TObj не одновременно..

Что бы было проще понять, я пытаюсь сделать уведомления, на подобии qip 2005, когда сбоку выходит окошко с текстом. и через некоторое время это окошко нужно удалить...
Как я и говорил, моя проблема в том, что я не могу понять, как мне отсчитывать допустим 10 сек и удалять окно, которое просуществовало 10 сек. А остальные должны дожидаться своих 10 сек))
Извините если плохо объяснил

7 ответов

11 просмотров

1. добавь к Tobj поле время_добавления_в_список 2. настрой таймер на срабатывание через 1 секунду 3. при срабатывании таймера сравни разницу между текущим временем и время_добавления_в_список каждого объекта. если она 10 и более секунд - удаляй объект PS начинай просматривать свой список перед удалением с конца

JF- Автор вопроса
Viktor Akselrod
1. добавь к Tobj поле время_добавления_в_список 2....

хм, точно)))) пасиб) а почему именно с конца?

потому что бежать по списку ты будешь скорее всего с помощью for/forin и при удалении элемента индексация у тебя собъется (элементы переместятся в начало списка на 1) и ты выйдешь за пределы списка

JF- Автор вопроса
Viktor Akselrod
потому что бежать по списку ты будешь скорее всего...

очень частые и неочевидные для новичка грабли :)

может уведомления пусть сами умирают, так не проще ли, чем список городить и бегать по нему?

Denis K
может уведомления пусть сами умирают, так не проще...

Ну, это ж ты не легаси предлагаешь.. Изыди, лукавый.. 😂🙈

Похожие вопросы

Обсуждают сегодня

Какой-то там пердун в 90-х решил, что есть какая-то разная типизация. Кого вообще это волнует?
КТ315
49
void terminal_scroll() { memmove(terminal_buffer, terminal_buffer + VGA_WIDTH, buffer_size - VGA_WIDTH); memset(terminal_buffer + buffer_size - VGA_WIDTH, 0, VGA_WIDTH); ...
Егор
47
Всем привет! Подскажите, пожалуйста, в чем ошибка? Настраиваю подключение к MySQL. Либы лежат рядом с exe. Все как по "учебнику"
Евгений
16
А можете как-то проверить меня по знаниям по ассемблеру?
A A
132
Здравствуйте! У меня появилась возможность купить книгу "Изучай Haskell во имя добра!". Но я где-то слышал, что эта книга устарела. Насколько это правда??
E
22
Здравствуйте! Я вот на stepic решаю задачи на хаскеле https://stepik.org/lesson/8443/step/8?unit=1578 мой код import Data.List (isInfixOf) removing :: String -> [String] ->...
E
10
Камрады, кто тесно работал с vtv, хотел уточнить. Ширина column задаётся жёстко на этапе создания дерева или можно в рантайме ее менять программно (не мышкой)?
Ed Doc
10
да ладно ... что там неочевидного ? глянуть в исх-ки датасета и/или кверика чтобы понять в каком месте и как выполняется обращения к св-вам blablaSQL - минутное дело, даже е...
Сергей
7
Здесь для arm кто-нибудь кодит ?
Nothing
52
Всем привет, у меня есть сервер принимающий входящие HTTP подключения, как проверить, что подключение было через прокси или нет, есть какие то поля в заголовках по которым мо...
DS
8
Карта сайта