Utlizando as teclas tab e enter
Saudações,
gostaria de saber como faço para que o enter abra o meu form e fazer a tecla tab se tranformar num enter (isso pra outro form). Eu sei que isso fica no evento onkeypress do button mas naum sei como fazer. Alguém poderia me ajudar? Muito obrigado.
gostaria de saber como faço para que o enter abra o meu form e fazer a tecla tab se tranformar num enter (isso pra outro form). Eu sei que isso fica no evento onkeypress do button mas naum sei como fazer. Alguém poderia me ajudar? Muito obrigado.
Elias Jr
Curtidas 0
Respostas
Ehvasc
19/05/2004
Tente usar o onKeyPress do formulário, ativando o KeyPreview do que vc quer alterar o tab->Enter
GOSTEI 0
Felippe
19/05/2004
Amigo no evento onkeypress vc deve digitar o seguinte codigo para o tab se comportar como enter
//Codigo
procedure TForm.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
If Key = #13 Then
Begin
If HiWord(GetKeyState(VK_RETURN)) <> 0 then
begin
//codigo aki dentro casa a tecla enter seja precionada
end;
end;
end;
//Codigo
procedure TForm.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
If Key = #13 Then
Begin
If HiWord(GetKeyState(VK_RETURN)) <> 0 then
begin
//codigo aki dentro casa a tecla enter seja precionada
end;
end;
end;
GOSTEI 0
Fabiano Freitas
19/05/2004
Seta a varável [b:ba277afc10]KeyPreview[/b:ba277afc10] do Form para True,
no [b:ba277afc10]OnKeyPress[/b:ba277afc10] do Form põe o seguinte:
[]´s
Fabiano Freitas
no [b:ba277afc10]OnKeyPress[/b:ba277afc10] do Form põe o seguinte:
if (key = #13) and
not (ActiveControl is TMemo){o Enter deve funcionar em um tmemo} then
begin
Key := 0; //anula o efeito da tecla
Perform(WM_NEXTDLGCTL,0,0); //foca o próximo componente possível
end;
[]´s
Fabiano Freitas
GOSTEI 0