Tocar a tecla TAB pelo ENTER no Kylix
Dica publicada em Kylix / Miscelânea
Tocar a tecla TAB pelo ENTER no Kylix
Bom amigos, alguns programadores kylix me
mandaram o seguinte enigma:
"Como trocar a tecla TAB por ENTER no Kylix?"
Então resolvi escrever essa dica. Veja abaixo.
No Delphi, o código da troca de TAB para ENTER fica da seguinte forma:
"Como trocar a tecla TAB por ENTER no Kylix?"
Então resolvi escrever essa dica. Veja abaixo.
No Delphi, o código da troca de TAB para ENTER fica da seguinte forma:
Procedure Tform1.FormKeyPress(Sender: Tobject; var Key: Char);
begin
If key = #13 then
Begin
Key:= #0;
Perform(Wm_NextDlgCtl,0,0); // essa instrução funciona somente no Windows através de API
end;
end;
begin
If key = #13 then
Begin
Key:= #0;
Perform(Wm_NextDlgCtl,0,0); // essa instrução funciona somente no Windows através de API
end;
end;
No Kylix o código da troca de TAB para ENTER fica da seguinte forma:
procedure TF_leitor.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If key = #13 then
Begin
Key:= #0;
//Perform(Wm_NextDlgCtl,0,0); // comente essa porcaria de instrução para API e coloque a de baixo
SelectNext(activecontrol,True,True);
end;
end;
begin
If key = #13 then
Begin
Key:= #0;
//Perform(Wm_NextDlgCtl,0,0); // comente essa porcaria de instrução para API e coloque a de baixo
SelectNext(activecontrol,True,True);
end;
end;
Abraços!
============================= Master_Foca, Viva a liberdade dos Códigos =============================
Isso ai e bom pra quem desenvolve programas comerciais para linux...
Aqueles velhos usuarios acostumados com o ENTER