Chamada de telas...
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
Curtidas 0
Respostas
Arc
13/10/2004
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;
GOSTEI 0
Xanatos
13/10/2004
E nao esqueca de mudar a propriedade do form KeyPreview para True
:arrow:
:arrow:
GOSTEI 0