Разработали новый процессор на женской логике, обрабатывающий четыре логических значения: "Ни да, ни нет", "И да, и нет", "Три раза нет!" и "Нет, и не проси!!!"
Я пытался использовать 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;
Статья Как программно щелкнуть по компоненту SpeedButton раздела Компоненты и Классы Кнопки может быть полезна для разработчиков на Delphi и FreePascal.
