teclas de atalho qdo nao � o form principal

Question

Boa noite!!!Qdo uso teclas de atalho no form principal funciona normalment, mas qdo do form principal abro um segundo form n�o funciona as teclas de atalho..uso a seguinte rotina:procedure TFrmBalanco...

Dankada · Answer

[quote:38eed31ab9=�rogsystem�]Boa noite!!!Qdo uso teclas de atalho no form principal funciona normalment, mas qdo do form principal abro um segundo form n�o funciona as teclas de atalho..uso a seguinte rotina:procedure TFrmBalanco.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if Key = VK_F1 then   NovoBalancoClick(sender);  if Key = VK_F2 then    SpeedButton1Click(Sender);  if Key = VK_F6 then   ModificarBalancoClick(sender);  if Key = VK_F7 then   SalvarBalancoClick(sender); end;n�o funciona no segundo form!!!!algu�m tem uma dica?[/quote:38eed31ab9]rapaz no form2 coloque a mesma coisa no evento FormKeyDown, se naum for isso q vc quer posta ai....

Rogsystem · Answer

foi isso q eu fiz mas nao acontece nada...

Dankada · Answer

essas procedures estao no forum1 (interroga��o) se estiverem faz isso

procedure Tform2.FormKeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState); 
begin 
if Key = VK_F1 then  
  form1.NovoBalancoClick(sender); 
if Key = VK_F2 then 
  form1.SpeedButton1Click(Sender); 
if Key = VK_F6 then 
  form1.ModificarBalancoClick(sender); 
if Key = VK_F7 then 
  form1.SalvarBalancoClick(sender); 
end;

ps. meu teclado esta desconfigurado por isso naum tem interrogacao :lol: :lol:

Fknyght · Answer

Faz o seguintedefina no seu on create do formulario principal a linha abaixo[b:b6eea6051f]Application.OnMessage := AppMessage;[/b:b6eea6051f]Depois crie a fun��o appMessage como mostrado[quote:b6eea6051f]procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);begin  inherited;  if msg.wParam = VK_F1 then    ShowMessage(�F1 apertado�);  if msg.wParam = VK_F2 then    ShowMessage(�F2 apertado�);  if msg.wParam = VK_F3 then    ShowMessage(�F3 apertado�);End;[/quote:b6eea6051f]Na clausula private do TFORM defina a  linha abaixo[b:b6eea6051f]procedure AppMessage(var Msg: TMsg; var Handled: Boolean);[/b:b6eea6051f]E pronto hehe :)Toda tecla que voce precionar vai ser processada na procedure APPMESSAGEEspero ter ajudado...

Thiago Vidal · Answer

Pode parecer meio �bvio, mas como ningu�m deu a id�ia entao eu vou falar...

A propriedade KeyPreview do seu form secund�rio est� como True?

KeyPreview faz com que toda tecla pressionada no form, v� tamb�m para o evento OnKeyDown do form, e n�o s� do Controle com o Foco.

Talvez a melhor solu��o para o seu problema seja criar uma TActionList e associar uma tecla de atalho para cada action que voce tiver, e implementar o metodo para executar esta Action no m�todo OnExecute.

Espero ter ajudado.... quaisquer d�vidas sobre Actions, o Help do Delphi � sempre um bom lugar para pesquisar.