Guy Fawkes
10-01-2010, 09:13:52
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.
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.