How to change form callback dynamically?

[trayres]

Is there a way such that I can change a form's event callback at runtime?

I'd like to change the OnMouseDown event depending on the state of what's going on. That information is in the *.lfm file.

I think I'd just access the main form, and use the @notation for the address of a procedure. Am I on the right track here?

Stupid question, sorry.

[Ñuño_Martínez]

Just assign it:

Code: Pascal  [Select][+][-]

1.   PROCEDURE TForm1.Whatever;
2.   BEGIN
3.   { For example. }
4.     IF SELF.UseProc_A THEN
5.       SELF.OnMouseDown := @SELF.HandleOnMouseDown_A
6.     ELSE
7.       SELF.OnMouseDown := @SELF.HandleOnMouseDown_B
8.   END;
9.  

Stupid question, sorry.

It would be worst if you don't ask.

[trayres]

Hi  Ñuño,

Thanks for the help, this will simplify my code dramatically