F�rum o enter nao funciona #219054

08/03/2004

galera sou nova no delphi e to fazendo um sistema
ja pesquisei sobre o enter
bom eu fiz uma funcao pra funcionar o emtre no meu from e nao ta dando certo arrumei a propriedade keypreview esta como true
e nos eventos onkeypress esta o seguinta codigo

if Key = #13 then
if not (ActiveControl is TDBGrid) then
begin
Key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end
else
if (ActiveControl is TDBGrid) then
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount - 1) then
selectedindex := selectedindex + 1
else
selectedindex := 0;

COMO ESTA EM UM OUTRO SISTEMA MEU
ESSA FUNCAO ESTA TANTO NO MENU PRINCIPAL COMO NO FORM QUE ESTA SENDO CHAMADO E NAO TA FUNCIONANDO O ENTER NO SISTEMA
SE VCS PUDEREM ME AJUDAREM EU FICAREI MUITO GRATA
BEIJOSSCHNEIDER

[color=green:0e629a226f][b:0e629a226f]Tiitulo Editado, retirado �URGENTISSIMO�[/b:0e629a226f][/color:0e629a226f]

Schneider

Curtir t�pico

+ 0

Responder

Posts

08/03/2004

Nildo

Tente remover a linha

Key := #0;

e veja o resultado...

Responder

Gostei + 0

08/03/2004

Spider

tente assim

coloque

keybd_event(VK_TAB, 0, 0, 0);

no lugar de

Perform(WM_NEXTDLGCTL, 0, 0);

Responder

Gostei + 0

08/03/2004

Schneider

Tente remover a linha Key := #0; e veja o resultado...

nao deu certo
continua na mesma

Responder

Gostei + 0

08/03/2004

Schneider

tente assim coloque keybd_event(VK_TAB, 0, 0, 0); no lugar de Perform(WM_NEXTDLGCTL, 0, 0);

tentei tbm e nao deu certo nao mudou nada

Responder

Gostei + 0

08/03/2004

Weber

N�o sei quanto ao DBGrid mas para o enter funcionar como TAB pulando de componente para componente basta colocar o KeyPreview=True no formul�rio.
No OnKeyDown do Formul�rio coloque
if Key = vk_RETURN then
Perform(WM_NEXTDLGCTL,0,0);

Responder

Gostei + 0

08/03/2004

Gandalf.nho

V� no site [url]http://delphi.icm.edu.pl/[/url] e pegue o componente DosMove, que mapeia o ENTER como TAB

Responder

Gostei + 0

08/03/2004

Andrey

Se vc disse q j� usa essa fun��o normalmente em outro sistema e funciona, provavelmente o problema n�o deve estar nela, mas no jeito q vc a est� utilizando. Ai fica mais dificil...tenta focar sua aten��o nisso...

Certifique-se de q o link esteja no evento onkeypress do form(v� em events e d� um duplo clique)

Responder

Gostei + 0

08/03/2004

Schneider

N�o sei quanto ao DBGrid mas para o enter funcionar como TAB pulando de componente para componente basta colocar o KeyPreview=True no formul�rio. No OnKeyDown do Formul�rio coloque if Key = vk_RETURN then Perform(WM_NEXTDLGCTL,0,0);

bom fis o q vc sugeriu mais nem passa por dentro dessa funcao quando abre o meu form tanto o principal quanto o que � chamado apos dele que deveria usar o enter
brigada

Responder

Gostei + 0

08/03/2004

Schneider

Se vc disse q j� usa essa fun��o normalmente em outro sistema e funciona, provavelmente o problema n�o deve estar nela, mas no jeito q vc a est� utilizando. Ai fica mais dificil...tenta focar sua aten��o nisso... Certifique-se de q o link esteja no evento onkeypress do form(v� em events e d� um duplo clique)

tbm ja fis isso aranquei a funcao dali ja e ja coloquei novamente
dei dois clicks no evento e tudo e nada da certo to pra ficar loka ja
beijos

Responder

Gostei + 0

08/03/2004

Paulo Trajano

J� que o problema � URGENT�SSIMO, aqui no ClubeDelphi tem um pacote de componentes chamado MDComponents com o componente MDTabEnter.

http://www.clubedelphi.com.br/compo/index.asp

Nele tem uma propriedade chamada �Classes Not Afected� (salvo engano) que vc pode escolher as classes de componentes que n�o ser�o afetadas por ele, ou seja onde o ENTER vai funcionar como ENTER mesmo. Ah, e s� basta colocar o componente no formul�rio e ajustar essa propriedade, n�o se esquecendo de copiar as DCU�S para a pasta onde est� seu projeto.

Espero ter ajudado
Abra�o

Responder

Gostei + 0

08/03/2004

Paulo Trajano

Desculpe, clique no link �Diversos� que vc vai achar

Responder

Gostei + 0

08/03/2004

Schneider

[quote:576c37d37d=�Paulo Trajano�]Desculpe, clique no link �Diversos� que vc vai achar[/quote:576c37d37d]

Paulo brigada mais � que nao gostaria de colocar componentes novos no meu sistema pois a firma onde trabalho nao concorta se � que vc me entende

beijos
brigada

Responder

Gostei + 0

08/03/2004

Paulo Trajano

...se � que vc me entende

hehe, entendo sim mas o que vale � a inten��o :wink:

Responder

Gostei + 0

08/03/2004

Schneider

[quote:870a4f9944=�Paulo Trajano�]

...se � que vc me entende

hehe, entendo sim mas o que vale � a inten��o :wink:[/quote:870a4f9944]

claro que sim brigada mesmo
beijos
:wink: :D

Responder

Gostei + 0

08/03/2004

Weber

schneider, verifique se o KeyPreview est� como True.
Voc� dever� colocar o ir acima em todos os seus formul�rios no OnKeyDown de cada um.

No meu est� assim e funciona.

Responder

Gostei + 0

Mais t�picos