Archivo

Entradas Etiquetadas ‘Ejemplos’

Simular barras flotantes en torno al formulario

miércoles, 2 de enero de 2008 1 comentario
Share Button

La idea de éste ejemplo llega a partir de una petición de obtener en un formulario unas barras de herramientas (toolbars) similares a las que aparecen en los Expertos para Delphi CnPack/cnWizard (muy buenos y gratuítos, por cierto).
En el caso de los CnPack, cuando aparece un formulario en el IDE de Delphi, aparecen varias barras de herramientas «flotantes» que se «pegan» literalmente al formulario.

De forma que si mueves el form, automáticamente se mueven las barras también. Una imagen descriptiva podría ser esta:

Barras flotantes

La forma de conseguirlo es utlizando el mensaje WM_WINDOWPOSCHANGING accesible desde los descencientes de TCustomForm.

Download Descargar ejemplo

Categories: Delphi, Ejemplos Tags: , , ,

Arrastrar elementos entre dos TListBox

martes, 1 de enero de 2008 4 comentarios
Share Button

Se trata de un ejemplo de cómo arrastrar elementos entre dos componentes de tipo TListBox utilizando el ratón.
Está basado en un formulario que ya trae el propio Delphi como ejemplo y accesible desde el menú de:

File/New/Other/Forms/Dual List Box

En este ejemplo se añaden 4 procedimientos que introducen la posibilidad de mover elementos utilizando el ratón y que en el original sólo se puede realizar utilizando controles del formulario.
La técnica de Drag & Drop que se usa en este ejemplo entre dos TListBox, puede ser fácilmente exportable para utilizarla con otros controles; StringGrids, DBGrid,…

Arrastrar entre 2 TListbox

Download Descargar ejemplo

Seleccionar Shapes visualmente

lunes, 1 de enero de 2007 Sin comentarios
Share Button

La idea de éste ejemplo era realizar unas pruebas para simular en ejecución, la selección de objetos, como normalmente se hace en el IDE de Delphi; Hice pruebas con dos métodos de selección; Uno utilizando las típicas marcas que aparecen el los vértives de un componente y otro con una outline -linea en la parte exterior del control-.

Seleccionar shapes

Hay implementados dos tipos de selección; Una es modificando las propiedades del propieo control (en este caso el Borde de los TShapes -aunque con otros controles puede hacerse algo similar-) y la otra añadiendo una marcas en ejecución alrededor del Componente; Este segundo caso parece que podría ser más estandard si es necesario hacerlo con diferentes tipos de componentes.

Download Descargar ejemplo

Categories: Delphi, Ejemplos Tags: , ,

Crear/destruir comp. en Runtime y moverlas con el ratón

lunes, 1 de enero de 2007 1 comentario
Share Button

Éste ejemplo surgió hace tiempo en los foros a raiz de un problema típico, en el que existe una imagen de fondo (plano) y se deben posicinar sobre ésta otras imagenes a modo de «elementos» (un bar y las mesas, la planta de un hospital y las camas, un plano de una terminal y el posicionamiento de las gruas,…).
Se trata de crear/destruir objetos y poder (en ejecución) moverlos utilizando el ratón;

Es una ampliación del ejemplo Seleccionar Shapes visualmente.

Mover imágenes con el ratón

Este ejemplo sirve también para mostrar cómo crear/destruir componentes visuales (en este caso son TImage), en ejecución mediante código. El sistema es muy similar para otros tipos de componentes.

Download Descargar ejemplo