Показать сообщение отдельно
  #2  
Старый 21.05.2018, 17:03
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 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;
Ответить с цитированием