16
Ваши вопросы / Re: Изменение одной кнопкой значений нескольких переменных
« : 15 Августа 2019, 16:27:32 »Задача немножко усложниласьПроще всего через таймеры.надо что бы переменные
vrBtn_2.Value := Value;
vrBtn_3.Value := Value;
vrBtn_4.Value := Value;
меняли свое состояние не мгновенно а через секунду-две. Подскажите знатоки
- Cоздать внтуреннюю переменную (если её ещё нет), с типом Integer, с именем, например ButtonVar. Привязать ButtonVar к требуемой кнопке.
- Cоздать внтуреннюю переменную с типом DateTime, например с именем timerVar.
- Затем к событию onClick кнопки, привязать скрипт, содержащий такую строку: TimerStart(timerVar, 0);
- Затем создать ещё один скрипт с типом события "Изменились переменные" и добавить timerVar в список отслеживаемых скриптом переменных
Код: (delphi)
const
TIMEOUT: word = 2; // пауза перед изменением в секундах
begin
if (TimerGetState(Variable) = 1) then
if SecondsBetween(Variable.Value, 0) >= TIMEOUT then
begin
TimerReset(Variable);
vrBtn_2.Value := ButtonVar.Value;
vrBtn_3.Value := ButtonVar.Value;
vrBtn_4.Value := ButtonVar.Value;
end;
end.
надо что бы переменные