Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Как программно "щелкнуть" по компоненту speed button? Я пытался использовать SendMessage но у Speedbuttons нет "handle".

Как программно "щелкнуть" по компоненту speed button? Я пытался использовать SendMessage но у Speedbuttons нет "handle".

В примере используется метод Perform класса TControl для
отправки сообщения.

Пример:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
    ShowMessage('clicked');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    SpeedButton1.Perform(WM_LBUTTONDOWN, 0, 0);
    SpeedButton1.Perform(WM_LBUTTONUP, 0, 0);
end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru