Тема: SendMEssage
Показать сообщение отдельно
  #3  
Старый 02.03.2015, 10:44
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Да и кейсом вполне, по ComboBox.ItemIndex

Код:
...
case ComboBox.ItemIndex of
0: i:= VK_F1; 
1: i:= VK_F2;
2: i:= VK_F3;
// etc;
end;
SendMessage(wnd, WM_KEYDOWN, i, 0);
SendMessage(wnd, WM_KEYUP, i, 0);
...
Ответить с цитированием