Как сделать использование timer не цикличным?

@lxsthope · Регистрация: 30.11.2022

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

Есть поле edit, куда вносится количество секунд для блокировки CheckBox, надо сделать так чтобы таймер разблокировал CheckBox после внесенного кол-ва секунд и останавливался.

Данный кусок кода работает следующим образом (это сам таймер):
1. Запускаем приложение
2. Таймер с интервалом в 1 секунду блокирует элементы ScrollBar
3. Таймер разблокирует через 1 секунду разблокирует элементы ScrollBar
И так до бесконечности.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm_Main::Edit_TimeChange(TObject *Sender)
{
int num_wait = StrToInt(Edit_Time->Text); // преобразуем из строки в число
if(num_wait >=1 && num_wait < 9)
    {
    Timer->Interval = num_wait*1000;
    Timer->Enabled = true;
    }
     
else if (Timer->Enabled == true)
    {
        Timer->Enabled = false;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm_Main::TimerTimer(TObject *Sender)
{
  CheckBox_All->Checked = !CheckBox_All->Checked;
  SwitchEnabled();
}
//---------------------------------------------------------------------------

@volvo · 30.11.2022, 16:20

C++
1
2
3
4
5
6
void __fastcall TForm_Main::TimerTimer(TObject *Sender)
{
  CheckBox_All->Checked = !CheckBox_All->Checked;
  // SwitchEnabled(); // понятия не имею, что оно делает
  Timer->Enabled = false; // <--- это остановит таймер
}

@gunslinger · 30.11.2022, 16:35

Вариант через нажатие кнопки (но это не принципиально):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Timer1->Enabled = 0;
  CheckBox1->Enabled = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Interval = StrToIntDef(Edit1->Text, 3) * 1000;
  Timer1->Enabled = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  CheckBox1->Enabled = 1;
}

Как сделать использование timer не цикличным?

@nick42 · 03.12.2022, 00:07

Можно еще через winapi, не используя компонент. Например:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//---------------------------------------------------------------------------
void CALLBACK TimerProc(HWND hWnd,UINT nMsg,UINT nIDEvent,DWORD dwTime)
{
   CheckBox_All->Checked = !CheckBox_All->Checked;
   SwitchEnabled();
   KillTimer(hWnd,nIDEvent);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDblClick(TObject *Sender)
{
    UINT sek = Edit_Time->Text.ToIntDef(0);
    if(sek>0 && sek<9)
      SetTimer(NULL,0x123,1000,(TIMERPROC)TimerProc);
}
//---------------------------------------------------------------------------

Добавлено через 2 минуты
(FormDblClick здесь запускает таймер 1 раз. У вас это Edit_TimeChange)

Добавлено через 3 минуты
и в параметрах не 1000, а произведение sek*1000. Также в функции TimerProc - полное имя (с Form1)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .