Fórum FormKeyDown - tecla de atalho #292651

22/08/2005

0

Estou colocando no onkeydown do form, uma tecla de atalho para abrir outro form, só q se estiver por exemplo em um dbgrid não funciona, tem algum lugar onde posso colocar esse tipo de atalho q abra esse outro form de qualquer forma se q o cursor esteja nele?

procedure TFrmFrenteCaixa.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var WFrm_Clientes:TFrm_Clientes;
begin
Case Key Of
VK_RETURN, VK_DOWN: Perform(WM_NEXTDLGCTL,0,0);
VK_UP: Perform(WM_NEXTDLGCTL,1,0);
VK_F10: begin
WFrm_Clientes:=TFrm_Clientes.Create(Self);
If WFrm_Clientes.Showmodal=MROk Then
TBPedidosCodCliente.value:=Strtoint (WFrm_Clientes.LBL_Result.Caption);
WFrm_Clientes.Release;
end;
end;
end;


Janete

Janete

Responder

Posts

22/08/2005

Rjun

Você definiu como TRUE a propriedade KeyPreview do Form?


Responder

Gostei + 0

22/08/2005

Janete

Você definiu como TRUE a propriedade KeyPreview do Form?


Não, eu fiz, acho q deu certo, obrigado


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar