Fun��o para que sirva pra todos os forms

Question

Estou precisando de criar uma fun��o global para que sirva para todos os forms.Ex.: Tenho um sistema que usa uma calculadora que uso o seguinte comando para abri-la.if Key = VK_F10 thenbeginFrmCalcula...

Vitor Alcantara · Answer

No caso que voc� falou voc� poderia fazer isso de v�rios modos
Um modo simples mais eficaz seria utilizando um TMainMenu e colocalo em seu form principal dai voc� colocar o bot�o de atalho (a propriedade ShortCut) do item com a combina��o que voc� escolher, isso dever� servir para todos os forms que forem inicializados sem ShowModal.

procedure TFormPrincipal.Calculadora1Click(Sender: TObject);
begin
FrmCalculadora.Show;
end;

Vitor Alcantara · Answer

Outro m�todo que serviria at� para os forms inicializados com ShowModal seria utilizando um TApplicationEvents (Palheta Additional) e definir o m�todo OnMessage com esse c�digo.

ApplicationEvents1

procedure TFormPrincipal.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.Message of
   WM_KEYDOWN :
    begin
      //Fica escutando o evento de precionamento de teclas
       if Msg.wParam = VK_F10 then //Verifica se a tecla F10 foi apertada
       begin
         //Executa o form FrmCalculadora
         FrmCalculadora.Show;
       end;
    end ;
  end;
end;

Visualdesigner · Answer

N�o funcionou n�o. Quando pressiono o F10 nada acontece....

Vitor Alcantara · Answer

Tenta isso:[code:1:16dc4ba2d7]procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean);begin   case Msg.Message of      WM_KEYDOWN, WM_SYSCHAR, WM_SYSKEYDOWN :      begin              if Msg.wParam = VK_F10 then         SHOWMESSAGE(�CALCULADORA�);      end ;   end ;end;[/code:1:16dc4ba2d7]...

F�rum Fun��o para que sirva pra todos os forms #343594