Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)
-   -   Mover imagenes creadas en tiempo de ejecucion en lazarus (https://www.clubdelphi.com/foros/showthread.php?t=65735)

Guy Fawkes 10-01-2010 09:13:52

Mover imagenes creadas en tiempo de ejecucion en lazarus
 
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..
  1. ...
  2. type
  3. TMainForm = class(TForm)
  4. ...
  5. public
  6. procedure OnTimeEvent(Sender :TObject);
  7. end;
  8. var
  9. MainForm :TMainForm;
  10. implementation
  11. ...
  12. procedure TMainForm.OnTimeEvent(Sender :TObject);
  13. begin
  14. ... // your code here
  15. end;
  16. ...
  1. var
  2. Timer1: TTimer;
  3. begin
  4. Timer1.OnTimer := MainForm.OnTimerEvent;
  5. 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.

Ñuño Martínez 14-01-2010 19:09:14

El principio es el mismo. ¿Por qué no te funciona?


La franja horaria es GMT +2. Ahora son las 17:01:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi