GARANTIR DESCONTO

Fórum combinação de teclas #205511

10/01/2004

0

Delphi

olá pessoal,

gostaria de saber como é que eu faço para que quando eu apertar uma sequencia de taclas com o ALT precionado chame um form

ex: ALT + DHFGBC chame form2 ou 3.....

alguém poderia mostrar o código por favor

abrigado.


Awtb

Awtb

Responder

Posts

10/01/2004

Beppe

Postei código pra isso [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=27133]aqui[/url].

Se precisar de ajuda pra adaptar é só falar.


Responder

Gostei + 0

10/01/2004

Awtb

valeu cara muito obrigado por ter me mostrado este exemplo, mas desculpe minha inguinorância pois não entendi muito bem não, será que vc poderia mostrar um exemplo bem simples que faça isso:

quando eu digitar awtb com o ALT precionado no form1 chamar o form2.

valeu


Responder

Gostei + 0

12/01/2004

Nigro

procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If GetStateK (VK_Alt) And (Key = VK_A) Then
Form1.ShowModal;
end;


Responder

Gostei + 0

12/01/2004

Beppe 

const 
  Chave = ´AWTB´; // em maíusculas 
var 
  Nivel: Integer; 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
  if (GetKeyState(VK_ALT) <> 0) and (Chave[Nivel + 1] = UpCase(Key)) then 
  begin 
    Inc(Nivel); 
    if Nivel = Length(Chave) then Form2.Show; 
  end else 
    Nivel := 0; 
end;


Eu não testei isso no Delphi, mas deve funfa.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar