Como usar Ctrl N
Pessoal, desculpem se a pergunta parece simples mas ainda não encontrei a resposta por mim mesmo.
Preciso implementar um evento em um Form para quando o usuário pressionar as Ctrl e s/S (s ou S) efetuar um salvamento no Banco.
Como fazer isso?
Grato
Preciso implementar um evento em um Form para quando o usuário pressionar as Ctrl e s/S (s ou S) efetuar um salvamento no Banco.
Como fazer isso?
Grato
Jats
Curtidas 0
Respostas
Rjun
04/04/2006
Defina TRUE para a propriedade KeyPreview do form. Depois é so fazer o tratamento nos eventos OnKeyDown e OnKeyPress do form.
GOSTEI 0
Michael
04/04/2006
Uma pequena correção [b:bc05e2e8da]Rjun[/b:bc05e2e8da]: o(s) evento(s) a ser implementado é o apenas o [b:bc05e2e8da]OnKeyDown [/b:bc05e2e8da]ou o [b:bc05e2e8da]OnKeyUp[/b:bc05e2e8da]. No [b:bc05e2e8da]OnKeyPress [/b:bc05e2e8da]não há como saber, pelo menos através dos parâmetros do evento, se a tecla Ctrl está pressionada.
[]´s
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl]) and (Key = Ord(´N´)) then ShowMessage(´Ctrl+N´); end;
[]´s
GOSTEI 0
Jats
04/04/2006
Pessoal, legal! Assunto resolvido :D
Grato a RJun e Michael por responderem.
Grato a RJun e Michael por responderem.
GOSTEI 0