[Lazarus-es] Mover objetos en tiempo de ejecucion

[Martin Gomez]

2013/8/25 Martin Gomez <mmgomez en gmail.com>

> Yo siempre lo hice poniendo una variable boolean en True en el
> OnMouseDown, en False en el OnMouseUp y "actuando" en el OnMouseMove
> solamente si estaba la bandera en True.


​por cierto, esto sólo funciona si los objetos que mueves NO reaccionan
ante el mouse... yo lo hice sobre un TImage y los "objetos" los dibujaba a
mano en el Image.OnPaint, emitiendo un Image.Invalidate() cada vez que
necesitaba forzar un cambio (al mover un objeto por ejemplo)​

​Si estás trabajando con objetos visuales (ej, TButton), te convendría
echar un vistazo al diseñador de formularios de Lazarus, o a diseñadores de
formularios disponibles como componentes.

Ej: http://forum.lazarus.freepascal.org/index.php?topic=17515.0

CodeTyphon incluye un componente "exDesign" que podría servirte:
http://www.pilotlogic.com/sitejoom/index.php/forums/scripting-development/2553-form-designer-component-pl-exdesign

-- 
Try not to become a man of success but rather to become a man of value. *Albert
Einstein*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130825/f6c4d302/attachment-0002.html>