21.05.2018, 17:03
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
а если так?
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(h, WM_SETFOCUS, 0, 0);
SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, 0);
SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, 0);
end;
|