| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
marombinhorc
Novato
Registrado: Terça-Feira, 6 de Novembro de 2007
Mensagens: 77
Localização: Mogi Mirim - -SP
|
 Enviada: Sex Nov 16, 2007 3:16 pm Assunto: função enter |
 |
|
Ola pessoal , sou novato em delphi e preciso de uma função que quando estou em um edit e apertar o enter ele tem que mudar para o proximo edit,
obrigado pela força |
|
| Voltar ao Topo |
|
 |
AlexSousa
Colaborador
Registrado: Sexta-Feira, 12 de Novembro de 2004
Mensagens: 1879
Localização: São luís - MA
|
| Enviada: Sex Nov 16, 2007 3:41 pm Assunto: |
|
|
blz marombinhorc,
no Evento KeyPress do Form coloque assim:
if key =#13 then
begin
perform(cm_dialogkey, VK_TAB,0);
key := #0;
end;
e mude para TRUE a propriedade KeyPreview
abraços,
_________________
"Guarda com toda a diligência o teu coração, porque dele procedem as fontes da vida....Prov. 4:23" |
|
| Voltar ao Topo |
|
|
Diogo_Cury
Aprendiz
Registrado: Sexta-Feira, 9 de Junho de 2006
Mensagens: 139
|
| Enviada: Sex Nov 16, 2007 5:16 pm Assunto: |
|
|
| Código: | procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key in [VK_RETURN,VK_DOWN] then
Perform(WM_NEXTDLGCTL,0,0)
else
if Key = VK_UP then
Perform(WM_NEXTDLGCTL,1,0);
end; |
KeyPreview do Form = True
_________________
Solução Completa pra Nota Fiscal Eletrônica:
Componentes em Delphi com manual completo,
intereçados: diogo_cury_flores@hotmail.com |
|
| Voltar ao Topo |
|
|
marombinhorc
Novato
Registrado: Terça-Feira, 6 de Novembro de 2007
Mensagens: 77
Localização: Mogi Mirim - -SP
|
| Enviada: Sex Nov 16, 2007 5:25 pm Assunto: resolvido |
|
|
| obrigado problema resolvido |
|
| Voltar ao Topo |
|
|
gauderio
Novato
Registrado: Sexta-Feira, 22 de Setembro de 2006
Mensagens: 62
|
| Enviada: Sex Nov 16, 2007 5:26 pm Assunto: |
|
|
Para baixo:
| Código: | procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
SelectNext(ActiveControl,true,true);
end; |
Para cima:
| Código: | procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_UP then
SelectNext(ActiveControl,false,true);
end; |
É isso ae parcero. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
