Selecionar linha DbGrid.

Delphi

25/05/2006

Boas pessoal, gostava de saber como posso passar os registos de uma dbgrid para outro form atravex de um enter Key = #13.

Obrigado.

Abraço.


Rui Lisboa

Rui Lisboa

Curtidas 0

Respostas

Cpd_arim

Cpd_arim

25/05/2006

vc quer apenas exibir os dados em outro form ou quer inserir em outra tabela?


GOSTEI 0
Rui Lisboa

Rui Lisboa

25/05/2006

vc quer apenas exibir os dados em outro form ou quer inserir em outra tabela?


Já tenho tudo a trabalhar mas com dois click na linha da grid, eu keria agora tambem por a possiblidade de dar enter key=#13.

Apenas isso amigo.

Abraço.


GOSTEI 0
Kenio_c

Kenio_c

25/05/2006

Basta vc colocrar o que seu duplo click faz no evento do DBGrid KeyDown
assim:
if Key = 13 then
begin

as funcoes do seu duplo click


end;


GOSTEI 0
Rui Lisboa

Rui Lisboa

25/05/2006

Basta vc colocrar o que seu duplo click faz no evento do DBGrid KeyDown assim: if Key = 13 then begin as funcoes do seu duplo click end;


No KeyDown?!??!

Então não tem de ser no KeyPress?


GOSTEI 0
Paullsoftware

Paullsoftware

25/05/2006

[quote:c71413c858=´Rui Lisboa´]
Basta vc colocrar o que seu duplo click faz no evento do DBGrid KeyDown assim: if Key = 13 then begin as funcoes do seu duplo click end;


No KeyDown?!??!

Então não tem de ser no KeyPress?[/quote:c71413c858]
onde vc vai tratar o evento on keypress do enter tipo


se for no OnKeyDown ficaria assim:
if Key = Vk_Return then
 //CapturaEvento

se for no OnKeyPress ficaria assim:
if key = #13 then
//CapturaEvento


deu pra entender? :wink:


GOSTEI 0
Kenio_c

Kenio_c

25/05/2006

Não !!!!
Basta Colocar no KEYDOOWN do DBGrid
if Key = 13 then
begin
.
.
.
end;


GOSTEI 0
Rui Lisboa

Rui Lisboa

25/05/2006

Não !!!! Basta Colocar no KEYDOOWN do DBGrid if Key = 13 then begin . . . end;


Já está a funcionar.


Obrigado.


GOSTEI 0
Rui Lisboa

Rui Lisboa

25/05/2006

Mas está dando erro.

O k deve ser?

Com o Click do Rato vai ao cafee cm o ENTER não vai e depois dá erro.


GOSTEI 0
Cpd_arim

Cpd_arim

25/05/2006

vc quer usar o enter com tab, eu uso assim no on keydown do dbgrid e funciona blz.

if (Key = VK_Return) or (Key = VK_Right) then
Keybd_Event(VK_Tab, 0, 0, 0);


GOSTEI 0
POSTAR