Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Эксепшен в строке : combo.OnChange(combo); По следам комбобоксов...  (Прочитано 6937 раз)
0 Пользователей и 1 Гость смотрят эту тему.
malor
Опытный

ru
Offline Offline

« : 05-11-2011 15:18 » 

При создании динамических комбобоксов есть присвоение:
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);
наблюдается ексэпшен:


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

* SetStateButtonCombobox.png (22.37 Кб - загружено 797 раз.)
Записан
zubr
Гость
« Ответ #1 : 05-11-2011 15:50 » 

OnChange - это событие а не метод. А событие в Delphi - есть свойство процедурного типа
Код:
property OnChange: TNotifyEvent read FOnChange write FOnChange;
Где тип TNotifyEvent:
Код:
TNotifyEvent = procedure(Sender: TObject) of object;
А ты пытаешься выполнить свойство как метод, вот и выскакивает эксепшн.
Вместо combo.OnChange(combo); сделай так:
Код:
ComboboxChange(combo);
Записан
malor
Опытный

ru
Offline Offline

« Ответ #2 : 05-11-2011 15:54 » 

Воистину!
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 06-11-2011 11:05 » 

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

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
zubr
Гость
« Ответ #4 : 06-11-2011 15:23 » new

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

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines