Как сразу после WM_KEYDOWN отправить WM_KEYUP ?

[Someb7]

Привет!

Заменяю вращение колеса мышки на нажатие клавиши по стандартному методу:

procedure Tfopt.AppMessage(var Msg: TMsg; var Handled: Boolean);
var i: ShortInt;
begin

if Msg.message= WM_MOUSEWHEEL then // при получении сообщения о прокрутке
  begin
   Msg.lParam:=0;  i:=HiWord(Msg.wParam);
   if i>0  then Msg.wParam:=VK_UP   else  Msg.wParam:=VK_DOWN; 
   Msg.message:=WM_KEYDOWN;  //...оно подменяется сообщением о нажатии клавиши
   Handled:=false;
   end;

end;

Все работает, но на форме есть компонент UpDown, которому надо еще после WM_KEYDOWN отправить WM_KEYUP

Есть какие-нибудь решения как сразу после WM_KEYDOWN отправить WM_KEYUP ?

[Пепел Феникса]

Send/PostMessage

[Someb7]

Так и сделал:

procedure Tfopt.AppMessage(var Msg: TMsg; var Handled: Boolean);
var i: ShortInt; keydn_: LongInt;
begin
if Msg.message= WM_MOUSEWHEEL then // при получении сообщения о прокрутке
  begin
   Msg.lParam:=0;  i:=HiWord(Msg.wParam);
   if i>0  then Msg.wParam:=VK_UP   else Msg.wParam:=VK_DOWN;
   Msg.message:=WM_KEYDOWN;  //...оно подменяется сообщением о нажатии клавиши
//
// Prevent uncorrect work of corespond UpDown
   if ActiveControl=Edit1 then
      while PostMessage( Edit1.Handle,WM_KEYUP,Msg.wParam,0 ) <> true do ;
   if ActiveControl=Edit3 then
      while PostMessage( Edit3.Handle,WM_KEYUP,Msg.wParam,0 ) <> true do ;
   if ActiveControl=Edit5 then
      while PostMessage( Edit5.Handle,WM_KEYUP,Msg.wParam,0 ) <> true do ;
   if ActiveControl=Edit4 then
      while PostMessage( Edit4.Handle,WM_KEYUP,Msg.wParam,0 ) <> true do ;
// 
   Handled:=false;
  end;
end;

Без строчек с PostMessage получается так (см.рис.), т.е. после прокручивания одного поля ввода и перехода к другому остаются выделенные синим цветом кнопки вверх (или вниз) компонента UpDown, которые убираются посылом WM_KEYUP.

Теперь правда с добавлением этих строчек выделения синим цветом нет вообще, хотя в поля Edit посылаются сначала WM_KEYDOWN, а потом WM_KEYUP - полная иммитация нажатия клавиши. Но этот вариант устраивает больше.