¿Cree que el menú proporcionado por Delphi es realmente poco atractivo de usar? ¡Puede utilizar el control VCL propio de Delphi para implementar un menú estilo IE! Las características incluyen: botones flotantes, posicionamiento de arrastre, gráficos... ¡todos los cuales no requieren controles de terceros ni mucha programación!
La implementación de un menú estilo IE requiere los siguientes pasos:
1. Defina un menú ordinario de la forma habitual;
2. Ocultar el menú definido de la ventana;
3. Agregue CoolBar y ToolBar a la ventana como barra de menú;
4. Asigne el menú al botón de la barra de herramientas;
5. Programa de efectos especiales (opcional).
El primer paso es definir un menú normal de la forma habitual.
Agregue un control TMainMenu a la ventana y luego defina elementos de menú, iconos, teclas de método abreviado, etc. de la forma habitual.
El segundo paso es ocultar el menú definido de la ventana.
El menú definido se mostrará automáticamente en la ventana. Esto se debe a que cuando se agrega un control TMainMenu a la ventana, la propiedad Menú del objeto TForm se establece automáticamente en el objeto TMainMenu agregado. Para poder utilizar nuestro propio menú definido, este menú debe estar oculto. Borre TForm.Menu y el menú definido no se mostrará automáticamente.
El tercer paso es agregar CoolBar y ToolBar a la ventana como barra de menú.
Agregue un control TCoolBar a la ventana y luego coloque un control TToolBar dentro de ella. Establezca la propiedad AutoSize de TCoolBar y TToolBar en True, establezca la propiedad Flat de TToolBar en True y establezca la propiedad ShowCaptions de TToolBar en True. De esta forma, aparece una barra de menú en blanco encima de la ventana. A continuación agregaremos elementos de menú a esta barra de menú.
El cuarto paso es asignar el menú al botón de la barra de herramientas.
Haga clic derecho en TToolBar y seleccione Nuevo botón en el menú emergente para agregar el primer botón a la barra de menú. Establezca la propiedad Tamaño automático y la propiedad Agrupada de este botón en Verdadero y luego cambie la propiedad Título al texto del elemento del menú. Por ejemplo, la propiedad Título podría estar establecida en &Archivo. Finalmente, establezca la propiedad MenuItem de este botón en el elemento de menú correspondiente definido en TMainMenu. Por ejemplo, la propiedad MenuItem podría establecerse en mnuFile. Después de estas configuraciones, el botón está vinculado al elemento del menú y el menú correspondiente aparecerá cuando se haga clic en el botón.
El quinto paso es programar efectos especiales (opcional).
Después de los cuatro pasos anteriores, el nuevo menú ya puede funcionar con normalidad. Sin embargo, si desea implementar otros efectos especiales, como arrastrar y posicionar CoolBar, necesita realizar un poco más de trabajo de programación. Estos contenidos ya no son el tema de este artículo y no se discutirán. Los lectores interesados pueden consultar la ayuda de Delphi.
Los lectores pueden brindar sus propias opiniones sobre este artículo.