Массив процедур

[Kronos913]

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

И при попытке создать массив, выдает ошибку

const
  Btt_Pr:array [0..5] of ProcedureClick=(But19C, But21C, But31C, But23C, But22C, But15C);

Вопрос: как сделать массив констант типа процедура?

[evg_m]

ДО создания формы методы как-бы не существуют
заполнение глобальных констант идет не то что бы ДО создания формы, но и до запуска программы

выдает ошибку

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

[Kronos913]

Зачем: большое количество кнопок заданы массивом array [a..b] of TButton
И нужно задать им каждому свою процедуру-реакцию

[macomics]

Скорее всего выдает ошибку из-за того, что процедуры перечислены в виде вызовов. А вам надо создать массив указателей. Попробуйте так

// Процедуры обязательно надо объявить до использования ссылки на нее
procedure But15C(Sender: TObject) of object;
procedure But19C(Sender: TObject) of object;
procedure But21C(Sender: TObject) of object;
procedure But22C(Sender: TObject) of object;
procedure But23C(Sender: TObject) of object;
procedure But31C(Sender: TObject) of object;
const
  Btt_Pr:array [0..5] of ProcedureClick=(@But19C, @But21C, @But31C, @But23C, @But22C, @But15C);

Вот только не уверен, что компилятор позволит вам это сделать с процедурами of object. Без этого должен создать массив как положено. Вместо нее возможно указать тип вызова safecall

[digitalis]

Скоро придётся заводить новый подраздел "Kronos913" спрашивает
Зачем такие <censored> - разве нельзя сделать case с ветвлением по индексу кнопки в массиве?

[DIONISKA]

Интересно каким образом вы дошли до того что вам нужен именно массив процедур?
В нормальной ситуации, я-бы взял ActionList заранее создал с десяток Action-ов, или сколько там у вас кнопок? Каждому Action свой OnExecute, Caption, индекс иконки (если нужны) и тп. Потом при создании кнопок просто назначил нужный action и не нужно никаких массивов прцедур и прочих извращений. Это кстати облегчило бы создание главного и контекстного меню.
А если хочется всё-же извращений, то можно тупо создать одну процедуру, которую будете присваивать каждой кнопке, в которой определять имя нажатой кнопки и выполнять что нужно:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender is TButton then else Exit;
  case IndexStr(TButton(Sender).Name, buttonnames) of
    0: begin //buttonnames[0] = 'Button1'
      ShowMessage('Button1 pressed!');
    end;
    1: begin
      ShowMessage(TButton(Sender).Name+' pressed!');
    end;
//  ...
    6: begin
       ShowMessage(TButton(Sender).Name+' pressed!');
    end;
  end;
end;

Где buttonnames это переменная или константа, массив строк где хранятся имена ваших кнопок. Может быть как динамическим, так и статическим.
Но лучше всё-же использовать ActionList.

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

Btt_Pr:array [0..5] of ProcedureClick=(@But19C, @But21C, @But31C, @But23C, @But22C, @But15C);

Это не будет работать. В этом контексте объекта не существует, а TNotifyEvent это (Sender: TObject) of object, то-бишь процедура должна принадлежать объекту. Было бы просто procedure (Sender: TObject), то туда хоть анонимные процедуры пихай.

[evg_m]

большое количество кнопок заданы массивом array [a..b] of TButton

и это константный массив?
или же есть КОД по его наполнению?
почему нельзя в данный код добавить код задания реакции OnClick?