Estoy haciendo un pequeno sistema de venta de discos, bueno eso no es importante, ya hice todo esto en vb, lo quiero pasar a lazarus.
Yo creo un arreglo de imagenes en runtime donde a cada una de agrego valores distintos, moverlas de derecha a izquierda y vicerversa no es dificil, pero lo que quiero es darle eventos de MouseDown, MouseUp a cada una de estas imagenes en la matriz
habia leido que en delpho es algo asi..
- ...
- type
- TMainForm = class(TForm)
- ...
- public
- procedure OnTimeEvent(Sender :TObject);
- end;
- var
- MainForm :TMainForm;
- implementation
- ...
- procedure TMainForm.OnTimeEvent(Sender :TObject);
- begin
- ... // your code here
- end;
- ...
- var
- Timer1: TTimer;
- begin
- Timer1.OnTimer := MainForm.OnTimerEvent;
- end;
este es un ejemplo con Timers, en Delphim quise hacer lo mismo para el evento MouseDown en imagenes pero no me anda en lazarus, como puedo hacerlo??? como agrego estos eventos en runtime a cada una de las imagenes independientes
Gracias de antemano.