Tenho um projeto em que eu abro um form dentro do outro, e com isso nos forms secundários o evento OnKeyDown em vez de ir para ir para os do forms secundários estão indo para o form Principal, mais se eu aperto tab na telas segundarias ele vai normal, então resolvi simular o tab.
Sei que o Código para simular keybd_event(VK_TAB, 0, 0, 0);
mais como fazer para simular o inverso?
procedure TfrmAndamento.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ((key=VK_RETURN) or (key=VK_DOWN)) and not((Sender is TMemo) or (Sender is TComboBox) or (Sender is TDBComboBox) or (Sender is TDBGrid))
then
selectNext(ActiveControl,True,True); // <= aqui o sistema da erro pois o ActiveControl sempre vem o objeto que não era o correspondente
end;