Ricardo
Olha eu tenho esse modelo que mim serve muito bem em DBGrid, ai eh so vc
fazer a mudança pra o controle que vc quizer.
var
bDirecao: Integer;
begin
bDirecao := -1;
if not (ActiveControl is TDBGrid) then
begin
case Key of
VK_UP: bDirecao := 1;
VK_DOWN,VK_RETURN: bDirecao := 0;
end;
if (bDirecao <> -1) then
perform(WM_NEXTDLGCTL, bDirecao, 0) ;
end;
end.
Espero ter ajudado.
Leonardo Anselmo
----- Original Message -----
From: Ricardo Ravelli
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, December 20, 2006 2:07 PM
Subject: [delphi-br] Tab pelo Enter
Tenho o seguinte problema. Uso esse código abaixo para trocar o Enter pelo
Tab, ativando a propriedade KeyPreview do Form, isso funciona sem problemas,
mas o meu problema é quando eu uso o componente Memo, pois se eu der um
enter dentro dele vai para outro edit. Alguém tem alguma solução para
resolver esse problema.
Obrigado.
Ricardo Ravelli.
[]s.
procedure Tfrmmultas.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := #0;
perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 1932 (20061220) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
