Обработать событие
Уважаемые коллеги!
С помощью скрипта я создаю кнопку на внешней форме. Кнопка создается, все ок.
Далее мне требуется обработать событие OnClick. Но в момент нажатия кнопки вылетает ошибка 'Access violetion at address 004CE7A7 in module ... Read of address 0000004A'.
Подскажите, что я делаю не так?
Вот мой код:
С помощью скрипта я создаю кнопку на внешней форме. Кнопка создается, все ок.
Далее мне требуется обработать событие 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.
Комментарии
procedure ButtonClick(Sender: TButton);
попробуй
procedure ButtonClick(Sender: TObject);