Array
(
)

Como usar Ctrl N

Jats
   - 04 abr 2006

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


Rjun
   - 04 abr 2006

Defina TRUE para a propriedade KeyPreview do form. Depois é so fazer o tratamento nos eventos OnKeyDown e OnKeyPress do form.


Michael
   - 04 abr 2006

Uma pequena correção Rjun: o(s) evento(s) a ser implementado é o apenas o OnKeyDown ou o OnKeyUp. No OnKeyPress não há como saber, pelo menos através dos parâmetros do evento, se a tecla Ctrl está pressionada.

#Código

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (Key = Ord(´N´)) then
ShowMessage(´Ctrl+N´);
end;


[]´s


Jats
   - 05 abr 2006

Pessoal, legal! Assunto resolvido :D
Grato a RJun e Michael por responderem.