OnKeyPress e OnkeyDown. Mensagem ao apertar uma tecla

Delphi

05/07/2004

Pq?
este código não faz nada.

begin
if key=#112 then
showmessage(´Teste´);
end

Ele esta no Onkeypress do form e o KeyPreviw esta true.

E quando uso esta outra conbinação no OnkeyDown

begin
if key=VK_F1 then
showmessage(´Teste´);
end
Qualquer tecla apertada executa a mensagem.

Onde estou errando.


Uoquisala

Uoquisala

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

05/07/2004

Já verificou se não tem alguma tela, em que a tecla de atalho é o F1?


GOSTEI 0
Weber

Weber

05/07/2004

propriedade KeyPreview do formulário tem que estar como true.


GOSTEI 0
Uoquisala

Uoquisala

05/07/2004

Vc diz alguma tecla de atalho do windows, pois no sistema n ha atalho nenhum

[quote:d8fc5b50a6=´Lucas Alves Silva´]Já verificou se não tem alguma tela, em que a tecla de atalho é o F1?[/quote:d8fc5b50a6]


GOSTEI 0
Lucas Silva

Lucas Silva

05/07/2004

Vc diz alguma tecla de atalho do windows, pois no sistema n ha atalho nenhum [quote:e941d0570a=´Lucas Alves Silva´]Já verificou se não tem alguma tela, em que a tecla de atalho é o F1?
[/quote:e941d0570a]
Algum [b:e941d0570a]ShortCut[/b:e941d0570a], em algum menu, ou coisa do tipo!


GOSTEI 0
Vinicius2k

Vinicius2k

05/07/2004

Colega,

Note que ´p´ é diferente de ´P´, então fará diferença a caixa alta com CapsLock ou Shift...
if (key = #112) or (key = 80) then ShowMessage(´Teste´);


Espero ter ajudado...
T+


GOSTEI 0
Uoquisala

Uoquisala

05/07/2004

Certo mais para F1 existe Caixa Alta??

Pois se existir e novidade pra mim!!!

112 = F1.

Colega, Note que ´p´ é diferente de ´P´, então fará diferença a caixa alta com CapsLock ou Shift... 
if (key = #112) or (key = 80) then ShowMessage(´Teste´);
Espero ter ajudado... T+



GOSTEI 0
Vinicius2k

Vinicius2k

05/07/2004

112 = F1.

Não...

[color=red:c4bf531118]112[/color:c4bf531118] (word) = F1 no evento OnKeyDown...
procedure TForm1.FormKeyDown(Sender: TObject; [b:c4bf531118]var Key: Word[/b:c4bf531118]; Shift: TShiftState);


[color=red:c4bf531118]#112[/color:c4bf531118] (char) = ´p´ no evento OnKeyPress...
procedure TForm1.FormKeyPress(Sender: TObject; [b:c4bf531118]var Key: Char[/b:c4bf531118]);


Se vc deseja que a aplicação responda ao F1 tem que usar o evento OnKeyDown para isso e não OnKeyPress... e vc pode usar o código da tecla ou o Virtual KeyCode (vk) pré-definido...

T+


GOSTEI 0
Diorgenes175

Diorgenes175

05/07/2004

cara, faz assim:

no OnKeyDown do form põe:


if (key = 112) then
ShowMessage(´Teste´);


GOSTEI 0
POSTAR