Associar uma procedure a um TNOTIFYEVENT dentro de uma UNIT

Delphi

02/02/2017

É possivel fazer algo assim:

Tenho uma UNIT que é só UNIT, não tem formulário.


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


Porem o delphi não aceita a procedure ClickMouse
Incompatible types: 'method pointer and regular procedure'

Já pesquisei e tentei de várias maneiras mas não encontrei
um jeito de fazer isso, se é que tem um jeito...
Alberto

Alberto

Curtidas 0
POSTAR