Pessoal,
Estou usando um aplicationevents para com o enter passar para o próximo
campo mas não está funcionando.
Por quê?
Vejam o código e digam o que está errado:
procedure TfrmMenu.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
//Enter para passar para o próximo campo
if (ActiveControl is TDBEdit) or (ActiveControl is TDBComboBox) or
(ActiveControl is TDBLookupComboBox) or (ActiveControl is TCustomEdit) then
begin
if Msg.message=WM_KEYDOWN then
if Msg.wParam=VK_RETURN then
Keybd_event(VK_TAB,0,0,0);
end;
end;
Atenciosamente,
Levi Ribeiro de Freitas
Programador de Computadores
Tel.: 55 12 3644-2119 / 9724-8804
Email: <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
[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] ou [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
