Перейти к содержанию
Fire Monkey от А до Я
  • 0

Не дать изменить значение Tswitch


alxsev

Вопрос

А как не позволять изменять значение Tswitch ?

 

сначала вывести сообщение а потом изменить в исходное положение бегунок ?

В процедурах своих он не меняет положение :(

 

procedure TForm1.ADCheckSwitch(Sender: TObject);
begin

   ShowMessage('Доступно в другой программе');
   Switch1.IsChecked:=false;
end;

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Кривая реализация TSwitch, тоже столкнулся с этим. Тут проблема в том, что компонент после вызова своих событий (OnSwitch напр) продолжает анимацию, и даже если поменять в OnSwitch на Switch1.IsChecked := false;  ничего не измениться, т.к. еще не закончилась анимация на предыдущий статус True.

Чтобы изменить значение  в OnSwitch или в OnClick - на нужное:

TThread.CreateAnonymousThread ( procedure 
    begin
      TThread.Queue( nil , procedure
      begin
          Switch1.IsChecked := false;
      end );
    end ).Start;

 

Админ почему то закрыл такую же тему, хотя вопрос не был решен.

Изменено пользователем ENRGY
Ссылка на комментарий

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...