Создание нескольких процедур по образцу

[Kronos913]

Если более конкретный пример

Есть TButton и есть TCheckBox, который блокирует-разблокирует кнопку (защита от случайного нажатия)
Ну и процедура, которая обрабатывает нажатие на TCheckBox

Все элементы создаются через Create в ходе выполнения программы

Вопрос: если мне нужно несколько таких пар сделать, то как сделать так чтобы не лепить каждому отдельную процедуру-обработчик?

Я думал через массив и теги сделать... Но проблемно, потому что создаются эти пары TButton-TCheckBox в разных местах и в разное время

Потому вопрос, есть ли еще варианты, или только через массив

[Kronos913]

Порывшись много где додумался до такой схемы. Кто может посмотреть, может подсказать, что тут можно поправить, улучшить?

type
  ProcedureClick=procedure(Sender: TObject) of object;

  ButtonCheckBoxBlock = object
    public
      ButtonCBB:TButton;
      CheckBoxCBB:TCheckBox;
      Procedure CBBInit(Parent1: TWinControl; const TopBT, LeftBT, HeightBT, WidthBT, TopCB, LeftCB: integer; const WordWrapBt:boolean; const CaptionBT:string; Click1: ProcedureClick);
      Procedure CBBVisible(a:boolean);
      Procedure CBB_Down;
    private
      CBB_Procedure:ProcedureClick;
      Procedure CheckBoxCBBClick(Sender: TObject);
      Procedure ButtonCBBClick(Sender: TObject);
  end;

Procedure ButtonCheckBoxBlock.ButtonCBBClick(Sender: TObject);
begin
  CBB_Procedure(Sender);
  CBB_Down;
end;

Procedure ButtonCheckBoxBlock.CBB_Down;
begin
  ButtonCBB.Enabled:=False;
  CheckBoxCBB.Checked:=false;
end;

Procedure ButtonCheckBoxBlock.CBBVisible(a:boolean);
begin
  ButtonCBB.Visible:=a;
  CheckBoxCBB.Visible:=a;
End;

Procedure ButtonCheckBoxBlock.CBBInit(Parent1: TWinControl; const TopBT, LeftBT, HeightBT, WidthBT, TopCB, LeftCB: integer; const WordWrapBt:boolean; const CaptionBT:string; Click1: ProcedureClick);
begin
  ButtonCBB:=TButton.Create(Parent1);
  With ButtonCBB do begin
    Parent:=Parent1;
    Top:=TopBT;
    Left:=LeftBT;
    Height:=HeightBT;
    Width:=WidthBT;
    Font.Charset:=RUSSIAN_CHARSET;
    WordWrap:=WordWrapBt;
    Caption:=CaptionBT;
    OnClick:=ButtonCBBClick;
    Enabled:=false;
  End;
  CheckBoxCBB:=TCheckBox.Create(Parent1);
  With CheckBoxCBB do begin
    Parent:=Parent1;
    Top:=TopCB;
    Left:=LeftCB;
    Height:=17;
    Width:=113;
    Font.Charset:=RUSSIAN_CHARSET;
    Caption:='Включить кнопку';
    OnClick:=CheckBoxCBBClick;
  End;
  CBB_Procedure:=Click1;
end;

Procedure ButtonCheckBoxBlock.CheckBoxCBBClick(Sender: TObject);
begin
 ButtonCBB.Enabled:=CheckBoxCBB.Checked;
end;

[evg_m]

для многократного повторения нескольких взаимосвязанных компонент(контролов) существуют фреймы (TFrame)

https://programmersforum.ru/showthread.php?t=167864
https://programmersforum.ru/showthread.php?t=167864

TGroupObj =class (TFrame)
//без необходимости создания таких групп в дизайнере можно использовать просто класс
private
  FCheck: TCheckBox;
  Ftext: TEdit;
  procedure DoCheckClick(sender: TObject); //реакция 
public
  constructor Create( ); 
  procedure SetPosition(check: TRect; edit: TRect);
  property check: Trect;
  property edit: TRect;
end;

[Kronos913]

У меня только такой вопрос: код процедуры объекта - он один раз записан в теле программы? Или дублируется на каждый объект?

[evg_m]

экземпляр объекта в памяти
данные объекта
ссылки на методы доступа к данным (на процедуры данного класса)