Обработать событие

отредактировано 23:38 Раздел: FastScript
Уважаемые коллеги!

С помощью скрипта я создаю кнопку на внешней форме. Кнопка создается, все ок.
Далее мне требуется обработать событие OnClick. Но в момент нажатия кнопки вылетает ошибка 'Access violetion at address 004CE7A7 in module ... Read of address 0000004A'.
Подскажите, что я делаю не так?

Вот мой код:
var
  i: Integer;
  b: TButton;

procedure ButtonClick(Sender: TButton);
begin
  ShowMessage('123');
end;

begin
  b := TButton.Create(fClient);
  b.Parent := fClient;
  b.SetBounds(820, 184, 91, 25);
  b.Name := 'bbMyButton';
  b.Caption := '123';
  b.OnClick := @ButtonClick;
end.

Комментарии

  • отредактировано 23:38
    А де ты видел такое описание событий
    procedure ButtonClick(Sender: TButton);
    попробуй
    procedure ButtonClick(Sender: TObject);

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.