Перейти к содержанию
Fire Monkey от А до Я
  • 0

Как нажать кнопку программно?


beegl

Вопрос

Рекомендуемые сообщения

  • 0
  • Модераторы
procedure RttiClick(const Obj: TObject);
// uses System.TypInfo;
var
  M: TMethod;
begin
  if Obj = nil then
    exit;

  M := GetMethodProp(Obj, 'OnClick');
  if Assigned(M.Code) then
    TNotifyEvent(M)(Obj);
end;


использовать

RttiClick(Button2);

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...