Seta propriedade keypreview do formulário para true
e coloca esta função no evento onkeypress do formulário
EnterIsTab( Sender, Key );
a função faz o seguinte:
Procedure EnterIsTab(Sender :TObject; Var Key :Char);
// Muda Enter Por Tab
begin
If key = #13 then
Begin
key := #0;
If (Sender is TDBGrid) then
TdbGrid(sender).Perform(WM_KeyDown,Vk_Tab,0)
else If (Sender is TDBMemo) then
TControl(Sender).Perform(CM_DialogKey,Vk_RETURN,0)
else If (Sender is TMemo) then
TControl(Sender).Perform(CM_DialogKey,Vk_RETURN,0)
else
TControl(Sender).Perform(CM_DialogKey,VK_TAB,0);
end;
end;
Abs
Júlio Abdala
barblo25 <[EMAIL PROTECTED]> escreveu:
Pessoal,
Coloquei em um form 3 edit e um button, pra fazer o exemplo da
troca do tab pelo enter e no button coloquei pra chamar outro form.
Ate ai tudo certo, mas eu perco o poder das setas de navegacao pra
cima e pra baixo, ele fica preso. Como devo proceder nesse caso e como
faco pra suprimir o som do enter. O codigo esta abaixo
procedure Tform1.MudarComEnter(Var Msg:TMsg;Var handled:Boolean);
begin
if Msg.message=WM_KEYDOWN then
begin
Case Msg.wParam of
VK_RETURN, VK_DOWN: Keybd_event(VK_TAB,1,0,0);
end;
end;
end;
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
