Atalho por tecla como fazer?
Como eu faço para abrir um form por tecla, exemplo abrir o form apertando F1?
e se for por asc alguém tem essa tbela poderia mandar?
valeu
e se for por asc alguém tem essa tbela poderia mandar?
valeu
Luiz_aquino
Curtidas 0
Respostas
Fvilela
13/02/2004
Segue uma dica, no evento OnKeyDown do Form, ponha o seguinte codigo:
procedure Tfrm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case KEY of
116 : // F5
CRIAR FORM
FORM.SHOW();
117 : //F6
...
118 : //F7
...
119 : //F8
...
120 : //F9
...
27 : //ESC
If application.MessageBox(´Os dados não salvos serão perdidos, deseja realmente sair?´+#13+10+
´´,´Atenção´,
mb_iconexclamation+mb_yesno+mb_defbutton2) = idyes then
close;
end;
end;
O F1 é 111 e assim por diante..
Espero ter podido ajudar.
:::: Fernando Vilela ::::
procedure Tfrm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case KEY of
116 : // F5
CRIAR FORM
FORM.SHOW();
117 : //F6
...
118 : //F7
...
119 : //F8
...
120 : //F9
...
27 : //ESC
If application.MessageBox(´Os dados não salvos serão perdidos, deseja realmente sair?´+#13+10+
´´,´Atenção´,
mb_iconexclamation+mb_yesno+mb_defbutton2) = idyes then
close;
end;
end;
O F1 é 111 e assim por diante..
Espero ter podido ajudar.
:::: Fernando Vilela ::::
GOSTEI 0
Euclides
13/02/2004
Caso voce tenha dúvidas quanto a tabela asc voce pode usar contantes declaradas na unit windows que comecam com vk_...
Exemplo
vk_f1
vk_f8
vk_enter etc........ digite vk_f1 e aperte f1 para o help do delphi e ele te mostra todas as contantes
Exemplo
vk_f1
vk_f8
vk_enter etc........ digite vk_f1 e aperte f1 para o help do delphi e ele te mostra todas as contantes
GOSTEI 0