ENTER x TAB em toda a Aplicação.
06/03/2003
0
Estou precisando de uma solução para que o ENTER funcione como TAB em toda a plicação.
Sem ter que alterar em todos os formulários.
Usei a rotina abaixo (encontrada na net) e funcionou precariamente após alguns ´ajustes´.
Na compilação é acusado o não reconhecimentodo TCustomMemo e TCustomGrid.
Quem puder ajudar serei muito grato.
Para essa rotina funcionar é necessário:
1. Colocá-la no Form principal
2. Colocar no onCreate do mesmo a linha:
procedure TFrmPrincipal.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
if not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid)
or (Screen.ActiveForm.ClassName = ´TMessageForm´)) then
begin
if Msg.message = WM_KEYDOWN then
begin
case Msg.wParam of
VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);
VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
end;
end;
end;
end;
Sem ter que alterar em todos os formulários.
Usei a rotina abaixo (encontrada na net) e funcionou precariamente após alguns ´ajustes´.
Na compilação é acusado o não reconhecimentodo TCustomMemo e TCustomGrid.
Quem puder ajudar serei muito grato.
Para essa rotina funcionar é necessário:
1. Colocá-la no Form principal
2. Colocar no onCreate do mesmo a linha:
procedure TFrmPrincipal.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
if not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid)
or (Screen.ActiveForm.ClassName = ´TMessageForm´)) then
begin
if Msg.message = WM_KEYDOWN then
begin
case Msg.wParam of
VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);
VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
end;
end;
end;
end;
Francyvaldo
Curtir tópico
+ 0
Responder
Posts
06/03/2003
Navoid
vc precisa incluir as units StdCtrls e Grids na clausula uses
até
até
Responder
Clique aqui para fazer login e interagir na Comunidade :)