Tab por Enter.
08/12/2003
0
Oi pessoal!
Tenho essa função:
procedure TfrmPri.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;
Só que gostaria de suprimir o beep que ocorre sempre que mudo de campo dentro do FORM, tem como fazer isso aproveitando essa função?.
Tenho essa função:
procedure TfrmPri.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;
Só que gostaria de suprimir o beep que ocorre sempre que mudo de campo dentro do FORM, tem como fazer isso aproveitando essa função?.
Martins
Curtir tópico
+ 0
Responder
Posts
09/12/2003
Valdemar_d
No evento OnKeyPress
coloque a linha:
if key= #13 then key:=0; {Suprime o som}
coloque a linha:
if key= #13 then key:=0; {Suprime o som}
Oi pessoal!
Tenho essa função:
procedure TfrmPri.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;
Só que gostaria de suprimir o beep que ocorre sempre que mudo de campo dentro do FORM, tem como fazer isso aproveitando essa função?.
Responder
Clique aqui para fazer login e interagir na Comunidade :)