Fórum Utlizando as teclas tab e enter #233118
19/05/2004
0
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
Curtir tópico
+ 0
Responder
Posts
19/05/2004
Ehvasc
Tente usar o onKeyPress do formulário, ativando o KeyPreview do que vc quer alterar o tab->Enter
Responder
Gostei + 0
19/05/2004
Felippe
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;
Responder
Gostei + 0
19/05/2004
Fabiano Freitas
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)