Таймер на форме

@sergey.ivanov · Регистрация: 22.02.2011

Студворк — интернет-сервис помощи студентам

Добрый день.

Помогите разобраться с проблемой:

1. Создал форму Progress на которой разместил объект класса TTimer *TimerChangeImage;
2. Установил TimerChangeImage->Interval = 1000; и TimerChangeImage->Enabled = false;
3. в событии отображения окна OnShow формы написал TimerChangeImage->Enabled = true;
4. свойство формы formstyle = fsStayOnTop;
5. На форме еще два объекта TImageList *ImageListProcess; и TImage *ImageProcess;
6. В ImageListProcess добавил картинки в формате BMP. Которые затем по таймеру записываются в объект ImageProcess

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TProcess::TimerChangeImageTimer(TObject *Sender)
{
  ImageProcess->Picture->Bitmap->FreeImage();
  ImageListProcess->GetBitmap(iImageIndex, ImageProcess->Picture->Bitmap);
  iImageIndex++;
  if (ImageListProcess->Count == iImageIndex) {
    iImageIndex = 4;
  }
  ImageProcess->Refresh();
}

7. вызываю из другой формы вновь созданную

C++
1
2
3
4
Application->CreateForm(__classid(TProcess), &Process);
  Process->Label1->Caption = "Ожидайте идет процесс создания резервной копии.";
  Process->Show();
  Process->Update();

8. Форма отображается но таймер на форме Process не срабатывает совсем.

Что я сделал не так?

@BRcr · 30.10.2012, 18:52

Нет, в потоки надо раскидывать ресурсоемкие действия, чтоб не тормозить выполнение главного потока. При этом вся визуальная часть программы, реализованная с помощью VCL, а также все действия с использованием любых объектов VCL должны быть реализованы в главном потоке.
Почитай справку по TThread, уделяя особое внимание функции Synchronize().

@sergey.ivanov · 30.10.2012, 20:10 **[ТС]**

Сообщение от BRcr

Нет, в потоки надо раскидывать ресурсоемкие действия, чтоб не тормозить выполнение главного потока. При этом вся визуальная часть программы, реализованная с помощью VCL, а также все действия с использованием любых объектов VCL должны быть реализованы в главном потоке.
Почитай справку по TThread, уделяя особое внимание функции Synchronize().

Спасибо за консультацию. Буду читать матчасть.

Новые блоги и статьи Все статьи Все блоги /
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	30.10.2012, 18:52
	Нет, в потоки надо раскидывать ресурсоемкие действия, чтоб не тормозить выполнение главного потока. При этом вся визуальная часть программы, реализованная с помощью VCL, а также все действия с использованием любых объектов VCL должны быть реализованы в главном потоке. Почитай справку по TThread, уделяя особое внимание функции Synchronize(). 0