<p>Gracias Martín ahora no tengo la pc pero apenas llegue lo veo</p>
<div class="gmail_quote">El 25/08/2013 12:24, "Martin Gomez" <<a href="mailto:mmgomez@gmail.com">mmgomez@gmail.com</a>> escribió:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Más aún:</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Este componente francés ya hace lo que necesitas :)</div><div class="gmail_default" style="font-family:tahoma,sans-serif">

<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif"><a href="http://www.tcoq.org/DrawObjectsExtended/DrawObjectsExtendedDesign.html" target="_blank">http://www.tcoq.org/DrawObjectsExtended/DrawObjectsExtendedDesign.html</a><br>

</div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">aquí las descargas: <a href="http://www.tcoq.org/composants" style="font-family:arial" target="_blank">http://www.tcoq.org/composants</a></div>

<div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/8/25 Martin Gomez <span dir="ltr"><<a href="mailto:mmgomez@gmail.com" target="_blank">mmgomez@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra"><div><br><div class="gmail_quote">2013/8/25 Martin Gomez <span dir="ltr"><<a href="mailto:mmgomez@gmail.com" target="_blank">mmgomez@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
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.</blockquote></div><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">


​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)​</div>


<div><br></div><div><div class="gmail_default" style="font-family:tahoma,sans-serif">​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.</div>


<div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Ej: <a href="http://forum.lazarus.freepascal.org/index.php?topic=17515.0" target="_blank">http://forum.lazarus.freepascal.org/index.php?topic=17515.0</a></div>


<div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">CodeTyphon incluye un componente "exDesign" que podría servirte: <a href="http://www.pilotlogic.com/sitejoom/index.php/forums/scripting-development/2553-form-designer-component-pl-exdesign" style="font-family:arial" target="_blank">http://www.pilotlogic.com/sitejoom/index.php/forums/scripting-development/2553-form-designer-component-pl-exdesign</a></div>

<span><font color="#888888">
<div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div></font></span></div><span><font color="#888888">-- <br><div><span style="font-family:tahoma,sans-serif">Try not to become a man of success but rather to become a man of value. <i>Albert Einstein</i></span></div>



</font></span></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div><span style="font-family:tahoma,sans-serif">Try not to become a man of success but rather to become a man of value. <i>Albert Einstein</i></span></div>
</div>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div>