Не стандартное поведение стандартного компонента (Ошибка: A class named already exists)

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

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

Доброго времени суток! Понадобилось мне немного расширить возможности у RadioButton, а именно запретить обработку OnClick. В прошлом уже делал подобную задачу, решалось все таким образом:

Delphi

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;
 
//-----------
 
//использование 
procedure TForm1.FormShow(Sender: TObject);
var
  rb: TRadioButton;
begin
   rb := TRadioButton.Create(Self);
   with rb do
   begin
    Parent := Form1;
    top := 10;
    left := 10;
    ReadOnly := true;
   end;
end;
 
initialization
RegisterClasses([TRadioButton]); // обязательно

Все работало, проект компилировался, ошибок не возникало. Но понадобилось переехать на новый комп, и при компиляции старых проектов возникла проблема. Точнее компиляция проходит успешно, но при попытке запустить приложение, возникает ошибка:

A class named TRadioButton already exists

В чем может быть проблема ? Почему раньше не было проблем ? Работаю в Rad studio 2010. Возможно раньше была сборка другая.

@Nanotentacle · 09.04.2019, 15:28

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

В чем может быть проблема ?

В том, что класс TRadioButton уже существует. Назовите ваш класс TMyRadioButton и все станет хорошо.

@DenProx · 09.04.2019, 15:34 **[ТС]**

Nanotentacle, Да, это понятно, но больше интересует почему раньше работало. Сейчас изменение имени класса может повлечь за собой вереницу проблем. Проект большой достаточно.

@Nanotentacle · 09.04.2019, 15:40

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

Nanotentacle, Да, это понятно, но больше интересует почему раньше работало. Сейчас изменение имени класса может повлечь за собой вереницу проблем. Проект большой достаточно.

Может быть в uses не было модуля StdCtrls. Трудно предположить. В любом случае такое именование своих классов некорректно.

@DenProx · 09.04.2019, 15:42 **[ТС]**

Nanotentacle, согласен. Придется костыль делать, для подмены TRadioButton на новый во время загрузки.

@krapotkin · 10.04.2019, 05:51

этот костыль как раз должен работать БЕЗ registerClasses

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	09.04.2019, 15:28	2
	Сообщение от DenProx В чем может быть проблема ? В том, что класс TRadioButton уже существует. Назовите ваш класс TMyRadioButton и все станет хорошо. 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	09.04.2019, 15:34 [ТС]	3
	Nanotentacle, Да, это понятно, но больше интересует почему раньше работало. Сейчас изменение имени класса может повлечь за собой вереницу проблем. Проект большой достаточно. 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	09.04.2019, 15:40	4
	Сообщение от DenProx Nanotentacle, Да, это понятно, но больше интересует почему раньше работало. Сейчас изменение имени класса может повлечь за собой вереницу проблем. Проект большой достаточно. Может быть в uses не было модуля StdCtrls. Трудно предположить. В любом случае такое именование своих классов некорректно. 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	09.04.2019, 15:42 [ТС]	5
	Nanotentacle, согласен. Придется костыль делать, для подмены TRadioButton на новый во время загрузки. 0

@krapotkin 5858 / 4587 / 1447 Регистрация: 14.04.2014 Сообщений: 20,340 Записей в блоге: 20
	10.04.2019, 05:51	6
	этот костыль как раз должен работать БЕЗ registerClasses 0