Fórum Chamada de telas... #254299
13/10/2004
0
Caros colegas,
Qual a linha de comando que devo utilizar p/ chamar uma determinada tela ao climar determinada tecla. Ex.: Ao clicar F1 chamaria a tela 1, ao Clicar F2 chamaria a tela 2...
Obrigada...
Qual a linha de comando que devo utilizar p/ chamar uma determinada tela ao climar determinada tecla. Ex.: Ao clicar F1 chamaria a tela 1, ao Clicar F2 chamaria a tela 2...
Obrigada...
Dbluka
Curtir tópico
+ 0
Responder
Posts
13/10/2004
Arc
No evento OnKeyDown do Formulario principal
procedure Tfrm_form1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F1 chama tela 1
else
if key = vk_F2 chama tela 2
end;
procedure Tfrm_form1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F1 chama tela 1
else
if key = vk_F2 chama tela 2
end;
Responder
Gostei + 0
13/10/2004
Xanatos
E nao esqueca de mudar a propriedade do form KeyPreview para True
:arrow:
:arrow:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)