Estoy armando un programa en el que tengo que colocar objetos y unirlos, como si fuera un driagrama de flujo. tengo los controles pero no logro hacerlos que los pueda mover con el raton. En delphi habia un truco que hice cuando jugaba en delphi1 pero no recuerdo bien como lo hice. Alguien conoce algo mejor que el drag & drop? -- El que pregunta aprende, y el que contesta aprende a responder. No a la obsolecencia programada: http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml Linux User #495070 http://domonetic.com/blog _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

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*

M�s a�n: Este componente franc�s ya hace lo que necesitas :) http://www.tcoq.org/DrawObjectsExtended/DrawObjectsExtendedDesign.html aqu� las descargas: http://www.tcoq.org/composants 2013/8/25 Martin Gomez <mmgomez en gmail.com> > > 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* > -- Try not to become a man of success but rather to become a man of value. *Albert Einstein* _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

Gracias Mart�n ahora no tengo la pc pero apenas llegue lo veo El 25/08/2013 12:24, "Martin Gomez" <mmgomez en gmail.com> escribi�: > > M�s a�n: > Este componente franc�s ya hace lo que necesitas :) > > http://www.tcoq.org/DrawObjectsExtended/DrawObjectsExtendedDesign.html > > aqu� las descargas: http://www.tcoq.org/composants > > > > > 2013/8/25 Martin Gomez <mmgomez en gmail.com> >> >> >> 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 > > > > > -- > Try not to become a man of success but rather to become a man of value. > Albert Einstein > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es >

El d�a 25 de agosto de 2013 15:21, Maxi <maximiliano.duarte en gmail.com> escribi�: > Gracias Mart�n ahora no tengo la pc pero apenas llegue lo veo > > El 25/08/2013 12:24, "Martin Gomez" <mmgomez en gmail.com> escribi�: >> >> M�s a�n: >> Este componente franc�s ya hace lo que necesitas :) >> >> http://www.tcoq.org/DrawObjectsExtended/DrawObjectsExtendedDesign.html >> >> aqu� las descargas: http://www.tcoq.org/composants >> >> >> >> >> 2013/8/25 Martin Gomez <mmgomez en gmail.com> >>> >>> >>> 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 >> >> >> >> >> -- >> Try not to become a man of success but rather to become a man of value. >> Albert Einstein >> >> _______________________________________________ >> Lazarus-es mailing list >> Lazarus-es en lists.lazarus.freepascal.org >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es >> > Gracias Martin justo esos dos objetos tenia en mente, ahora hice unas pruebas y no sob los ideales pero me sirve para empezar -- El que pregunta aprende, y el que contesta aprende a responder. No a la obsolecencia programada: http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml Linux User #495070 http://domonetic.com/blog _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

Me alegro! Al menos tenes el c�digo fuente para ver como lograr el efecto deseado. 2013/8/27 Maxi <maximiliano.duarte en gmail.com> > > El d�a 25 de agosto de 2013 15:21, Maxi <maximiliano.duarte en gmail.com> > escribi�: > > Gracias Mart�n ahora no tengo la pc pero apenas llegue lo veo > > > > El 25/08/2013 12:24, "Martin Gomez" <mmgomez en gmail.com> escribi�: > >> > >> M�s a�n: > >> Este componente franc�s ya hace lo que necesitas :) > >> > >> http://www.tcoq.org/DrawObjectsExtended/DrawObjectsExtendedDesign.html > >> > >> aqu� las descargas: http://www.tcoq.org/composants > >> > >> > >> > >> > >> 2013/8/25 Martin Gomez <mmgomez en gmail.com> > >>> > >>> > >>> 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 > >> > >> > >> > >> > >> -- > >> Try not to become a man of success but rather to become a man of value. > >> Albert Einstein > >> > >> _______________________________________________ > >> Lazarus-es mailing list > >> Lazarus-es en lists.lazarus.freepascal.org > >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es > >> > > > > Gracias Martin justo esos dos objetos tenia en mente, ahora hice unas > pruebas y no sob los ideales pero me sirve para empezar > -- > El que pregunta aprende, y el que contesta aprende a responder. > > No a la obsolecencia programada: > > http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml > > Linux User #495070 > http://domonetic.com/blog > > _______________________________________________ > Lazarus-es mailing list > Lazarus-es en lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es -- Try not to become a man of success but rather to become a man of value. Albert Einstein _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es