Как программно щелкнуть по компоненту SpeedButton

Разработали новый процессор на женской логике, обрабатывающий четыре логических значения: "Ни да, ни нет", "И да, и нет", "Три раза нет!" и "Нет, и не проси!!!"

Я пытался использовать SendMessage но у Speedbuttons нет "handle"... ;-(

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

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage('Delphi World is the BEST');
end;

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 710 • TDictionary Custom Sort 5 838 • Fast Watermark Sources 5 641 • 3D Designer 8 293 • Sik Screen Capture 5 961 • Patch Maker 6 422 • Айболит (remote control) 6 415 • ListBox Drag & Drop 5 272 • Доска для игры Реверси 94 640 • Графические эффекты 6 608 • Рисование по маске 5 688 • Перетаскивание изображений 4 793 • Canvas Drawing 5 167 • Рисование Луны 4 898 • Поворот изображения 4 442 • Рисование стержней 3 147 • Paint on Shape 2 391 • Генератор кроссвордов 3 259 • Головоломка Paletto 2 581 • Теорема Монжа об окружностях 3 358 • Пазл Numbrix 2 229 • Заборы и коммивояжеры 2 876 • Игра HIP 1 854 • Игра Go (Го) 1 766 • Симулятор лифта 2 097 • Программа укладки плитки 1 832 • Генератор лабиринта 2 267 • Проверка числового ввода 1 957 • HEX View 2 257 • Физический маятник 1 936

Как программно щелкнуть по компоненту SpeedButton

Похожие по теме исходники