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

[beegl]

HintCheckBox.Perform(WM_LBUTTONDOWN, 0, 0);
HintCheckBox.Perform(WM_LBUTTONUP, 0, 0);

Примерно так:

• perform win32/64 или sendmessage или
•  
• postmessage

Изменено 26 января, 2017 пользователем beegl

[Равиль Зарипов (ZuBy)]

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);

 

[beegl]

Только что, Равиль Зарипов (ZuBy) сказал:

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

RttiClick(Button2);

на кнопку действует, а на CheckBox не хочет, в чем может быть ошибка/причина?

[MAD_EVAL]

В 26.01.2017 в 20:19, beegl сказал:

на кнопку действует, а на CheckBox не хочет, в чем может быть ошибка/причина?

Вместо onClick используйте isChecked