Запретить изменять состояние (ReadOnly)

@DenProx · Регистрация: 09.10.2009

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

Доброго времени суток! Столкнулся с небольшой проблемой. Необходимо запретить CheckBox по событию OnClick изменять свое состояние.

Enable = False - не подходит.

у DBCheckBox есть свойство ReadOnly, которое как раз выполняет то, что нужно. Но мне необходимо именно у CheckBox'a реализовать.

Пробовал самое банальное. CheckBox1.Checked := CheckBox1.Checked;

Но не помогает. Есть у кого, какие ни будь идеи ?

@DenProx · 02.03.2018, 12:02 **[ТС]**

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

type
TCheckBox = class(StdCtrls.TCheckBox)
protected
* ReadOnly: Boolean;
* procedure Toggle; override;
end;
...
procedure TCheckBox.Toggle;
begin
* if not ReadOnly then
* * inherited;
end;

Спустя долгое время, потребовалось подобное решение только для RadioButton. Но у радио кнопок нет Toggle... Подскажите, как быть?

@krapotkin · 02.03.2018, 12:10

восстанавливать старое значение по клику. если клик не в нужное время

Добавлено через 30 секунд
но конечно по-прежнему правильное решение это disabled

@DenProx · 02.03.2018, 12:28 **[ТС]**

Пока до конца не проверил, но вроде работает по аналогии:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
TRadioButton = class(StdCtrls.TRadioButton)
protected
  ReadOnly: Boolean;
  procedure SetChecked(Value: Boolean); override;
end;
 
//--------------
 
procedure TRadioButton.SetChecked(Value: Boolean);
begin
if not ReadOnly then
    inherited;
end;

@Joey · 03.03.2018, 04:43

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

if not ReadOnly then inherited;

На досуге http://www.transl-gunsmoker.ru... rited.html

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109

	Запретить изменять состояние (ReadOnly) 15.04.2016, 08:13. Показов 6450. Ответов 23 Метки нет (Все метки) Доброго времени суток! Столкнулся с небольшой проблемой. Необходимо запретить CheckBox по событию OnClick изменять свое состояние. Enable = False - не подходит. у DBCheckBox есть свойство ReadOnly, которое как раз выполняет то, что нужно. Но мне необходимо именно у CheckBox'a реализовать. Пробовал самое банальное. CheckBox1.Checked := CheckBox1.Checked; Но не помогает. Есть у кого, какие ни будь идеи ? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	02.03.2018, 12:10
	восстанавливать старое значение по клику. если клик не в нужное время Добавлено через 30 секунд но конечно по-прежнему правильное решение это disabled 0