TSizeCtrl

Tsizectl

Componente Delphi no visual para habilitar el movimiento de ejecución y el cambio de tamaño de los controles.

Autor original: Angus Johnson

http://angusj.com/delphi/

http://angusj.com/delphi/sizectl.html

Probado en:

Delphi 3, 4, 5, 6, 7, 10.1 Berlín, 10.2 Tokio

Versión:

Esta es una bifurcación desde la última versión del autor (7.2 - 3 de septiembre de 2006)

Capturas de pantalla del componente tsizectl:

Apresto:

Emocionante:

Los controles alineados han deshabilitado las manijas del "botón de agarre" a lo largo de las bordes fijos:

Múltiples controles se pueden mover o cambiar el tamaño:

Uso básico:

1. Agregue un componente tsizectl (Sizectl1) a su forma.
2. Establezca las propiedades de Sizectl1 (colores del botón, etc.) según lo desee.
3. Asigne métodos de evento (inicio, durante y eventos de tamaño final/movimiento) según lo desee.
4. En el método OnCreate del formulario, Sizectl1.RegisterControl () todos los objetivos posibles.
5. En un método Menuitem asignado, altere la propiedad Sizectl1.Senabled.
6. Una vez habilitado:
   • Haga clic o pestaña para seleccionar objetivos.
   • Mantenga presionado la tecla de cambio para seleccionar múltiples objetivos.
   • Rectifique los objetivos haciendo clic y arrastrando los botones de cambio de tamaño de un objetivo o manteniendo presionado la tecla de cambio mientras use las teclas de flecha.
   • Mueva los controles haciendo clic y arrastrando un objetivo o utilizando las teclas de flecha.

Notas misceláneas:

Capturar los mensajes WM_SetCursor de los encabezados de ListView también requiere enganchar el controlador de mensajes del encabezado. No creo que esta mejora menor en la gestión del cursor justifique el considerable esfuerzo de programación adicional.