Substituir TAB por ENTER
06/02/2003
0
Obrigado pela ajuda
Renato
Anonymous
Posts
06/02/2003
Uoquisala
Valeu
06/02/2003
Rubensavelino
// No evento KeyPress do Form, digite...
with Sender do
if Key = #13 then begin
SelectNext(Sender as tWinControl, True, True);
Key := 0;
end;
:arrow: :idea: :roll:
06/02/2003
Roa
if (Key = #13) then begin
Key := 0;
Perform(Wm_NextDlgCtl,0,0);
end;
Depois altere a propriedade KeyPreview do Form para ´true´.
Espero ter ajudado.
06/02/2003
Robsonismael
if key =#13 then
begin
key:=0;
if (sender is TDBGrid) then
TDBGrid(Sender).Perform(WM_KeyDown,VK_Tab,0)
else
Perform(Wm_NextDlgCtl,0,0);
end;
06/02/2003
Anonymous
Pois essas rotinas, no intraweb, nao funciona ...
Valeu galera
Clique aqui para fazer login e interagir na Comunidade :)