Fórum Tecla TAB no OnKeyPress #348575
06/11/2007
0
Pressionando TAB neste TEdit, não quero que ele passe o foco para o próximo componente, mas sim adicione um texto a esse mesmo campo.
Já tentei fazer com o OnKeyPress e com o OnKeyDown e nenhum dos 2 funcionou, ele se quer faz o q mandei, apenas muda o foco.
Tentei dessas formas:
procedure TfrmMain.txtMsgKeyPress(Sender: TObject; var Key: Char);
begi
if (Key = #9) then begin
Key := 0;
Edit1.text := ´texto´
end;
end;procedure TfrmMain.txtMsgKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_TAB) then begin
Key := 0;
edit1.text := ´texto´;
end;
end;Ele simplesmente nao faz nada, so passa o foco pro proximo componente.
O que faço?
Obrigado
Kohl
Curtir tópico
+ 0Posts
06/11/2007
Edilcimar
If Key = vk_Tab then
faça algo
o keypreview do form tem que estar true
Gostei + 0
06/11/2007
Kohl
Ele continua focando o proximo componente e nao executando o que eu mandei.
Gostei + 0
06/11/2007
Vitor Alcantara
Ai segue um exemplo;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
case Msg.Message of
WM_KEYDOWN:
begin
if (Msg.wParam = VK_TAB) //Testa o precionamento do TAB
AND (ActiveControl = Edit1) //Verifica se o Edit1 está com o focu
then
begin
Edit1.Text := ´Texto´;
Edit1.SetFocus;
abort;
end;
end ;
end;
end;Gostei + 0
06/11/2007
Kohl
:D
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)