Как программно щелкнуть по компоненту 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;

Недавно добавленные исходники
• Animation Loaders 624 • DeLiKaTeS Tetris (Тетрис) 5 641 • TDictionary Custom Sort 7 597 • Fast Watermark Sources 7 286 • 3D Designer 10 489 • Sik Screen Capture 7 809 • Patch Maker 8 036 • Айболит (remote control) 8 093 • ListBox Drag & Drop 6 901 • Доска для игры Реверси 100 006 • Графические эффекты 8 156 • Рисование по маске 7 541 • Перетаскивание изображений 6 160 • Canvas Drawing 6 525 • Рисование Луны 6 455 • Поворот изображения 5 642 • Рисование стержней 4 557 • Paint on Shape 3 267 • Генератор кроссвордов 4 252 • Головоломка Paletto 3 386 • Теорема Монжа об окружностях 4 214 • Пазл Numbrix 2 733 • Заборы и коммивояжеры 3 634 • Игра HIP 2 441 • Игра Go (Го) 2 421 • Симулятор лифта 2 827 • Программа укладки плитки 2 272 • Генератор лабиринта 2 982 • Проверка числового ввода 2 493 • HEX View 2 898

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

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