Как программно щелкнуть по компоненту 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 939 • TDictionary Custom Sort 6 046 • Fast Watermark Sources 5 848 • 3D Designer 8 668 • Sik Screen Capture 6 171 • Patch Maker 6 606 • Айболит (remote control) 6 600 • ListBox Drag & Drop 5 457 • Доска для игры Реверси 95 424 • Графические эффекты 6 808 • Рисование по маске 5 999 • Перетаскивание изображений 4 986 • Canvas Drawing 5 355 • Рисование Луны 5 081 • Поворот изображения 4 619 • Рисование стержней 3 274 • Paint on Shape 2 516 • Генератор кроссвордов 3 408 • Головоломка Paletto 2 717 • Теорема Монжа об окружностях 3 505 • Пазл Numbrix 2 306 • Заборы и коммивояжеры 2 994 • Игра HIP 1 950 • Игра Go (Го) 1 870 • Симулятор лифта 2 219 • Программа укладки плитки 1 935 • Генератор лабиринта 2 373 • Проверка числового ввода 2 060 • HEX View 2 382 • Физический маятник 2 015

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

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