Caríssimos...
Após ver dicastão "complicadas" de implementar, vou dar a minha:
Evento onKeyDown do Form:
procedure TFBSYS001SYS0002.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0);
VK_ESCAPE: Perform(WM_NEXTDLGCTL, -1, 0);
end;
end;
Deixo a propriedade KeyPreview como True e boa. Com isso, TODOS os objetos do
form que recebam foco e não sejam botões passarão o foco adiante com <ENTER> e
retornarão o foco com <ESC>.
Se eu quiser que isso atue só nos TEdits?
procedure TFBSYS001SYS0002.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Sender is TEdit then
begin
case Key of
VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0);
VK_ESCAPE: Perform(WM_NEXTDLGCTL, -1, 0);
end;
end;
end;
[]'s
---------------------------------------------------
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---------------------------------------------------
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---------------------------------------------------
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---------------------------------------------------
----- Mensagem original ----
De: Luis Hilário Tobler Garcia <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 12 de Setembro de 2008 13:39:42
Assunto: Re: [delphi-br] tab por enter .
Então, eu coloco em todos os Edits, no Evento OnKeyPress o código abaixo:
case Key of
#27:
begin
Key:=#0;
Self.btnSairClick( Self.btnSair) ;
end;
#13:
begin
Perform(CM_DialogKe y, VK_TAB, 0);
Key:=#0;
end;
end;
----- Original Message -----
From: [EMAIL PROTECTED] ind.br
To: [EMAIL PROTECTED] os.com.br
Sent: Thursday, September 11, 2008 1:19 PM
Subject: [delphi-br] tab por enter .
alguem sabe como fazer para trocar o tab pelo enter ...
eu uso o
if key = 13 then
dbeditX.set forcus ....
tem alguma forma de fazer com q o delphi interprete o enter em lugar do tab
... para não precisar escrever esse código cada vez q kero trocar de focu
...
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_____
De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de Adriano Santos (Yahoo)
Enviada em: quinta-feira, 11 de setembro de 2008 11:35
Para: Delphi-br
Assunto: [delphi-br] [Off] Delphi Tour Report
Pessoal,
Publiquei ontem no meu blog um Report sobre o Delphi Tour aqui em São Paulo.
ABs
--
Boa Leitura,
Adriano Santos
Director X-35 Consulting and Development
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi. blogspot. com
www.adrianosantos. pro.br
www.devmedia. com.br
www.dug-sp.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
