Fórum Associar uma procedure a um TNOTIFYEVENT dentro de uma UNIT #574551

Unit Teste;

Interface

Uses
  Windows, Forms;

  Function Pergunta( Texto:String ):Boolean;
  procedure ClickMouse(Sender:TObject);

Implementation

Var

Procedure ClickMouse(Sender:TObject);
Begin
   ...codigo...
End;


Function Pergunta( Texto:String ):Boolean;
Begin

   //Criar um Form cujo AOwner seja a aplicação -> OK
   Form := TForm.Create(Application);

   //Criar um botão dentro do Form -> OK
   Botao := TButton.Create(Form);

   //associar ao onClick do botao que está no form. -> ERRO
   Botao.Onclick := ClickMouse;
   
End