Эксепшен в строке : combo.OnChange(combo); По следам комбобоксов...

[malor]

При создании динамических комбобоксов есть присвоение:
combobox.OnChange := ComboboxChange;
Она объявлена так:
procedure ComboboxChange(Sender:TObject);

На этом куске кода:

Код: (Delphi)

procedure TRegistrationForm.SetStateButton();
var
  i : Word;
  combo : TCombobox;
begin

  for i := 1 to QuantityQuestion do
  begin
    combo := arrCombobox[i].pCombobox;

    if (combo.Enabled) then
      combo.OnChange(combo);

  end;

end;

на строчке
combo.OnChange(combo);
наблюдается ексэпшен:

Где закралась ошибка ?

[zubr]

OnChange - это событие а не метод. А событие в Delphi - есть свойство процедурного типа

Код:

property OnChange: TNotifyEvent read FOnChange write FOnChange;

Где тип TNotifyEvent:

Код:

TNotifyEvent = procedure(Sender: TObject) of object;

А ты пытаешься выполнить свойство как метод, вот и выскакивает эксепшн.
Вместо combo.OnChange(combo); сделай так:

Код:

ComboboxChange(combo);

[malor]

Воистину!

[RXL]

У нас в C++ (BCB) допускается вызов OnChange как метода. Как-то не верится, что совсем нет способа.

[zubr]

В обще то да RXL прав. Должно работать и combo.OnChange(combo);
Где то косяк в другом месте.  malor,  проверь, может у тебя при вызове еще массив не инициализирован или вышел за пределы массива.