Los consejos de uso en Delphi son tan simples.
Showhint: = verdadero;
Sugerencia: = 'mensaje de inmediato';
No tiene que escribir una línea de código, es bastante conveniente.
Pero a veces queremos personalizar los efectos de las indicaciones para que se vean más hermosos y personales.
La implementación de la función de sugerencia de Delphi se clasifica en la clase de aplicación, por lo que podemos ver varias propiedades sobre la pista en la clase de aplicación. , tiene un impacto en la función de sugerencia de todo el proyecto. La ventaja de hacer esto es, por supuesto, que unifica el estilo de sugerencia y hace que otras clases ignoren la implementación de la pista.
Podemos construir un proyecto simple, poner un botón, establecer el showhint del botón en verdadero y luego establecer un valor para la pista. Al ejecutar el programa, aparecerá una ventana rápida cuando el cursor apunte al botón.
Pero si escribimos en el evento de creación de la ventana principal:
Procedimiento tForm1.FormCreate (remitente: tobject);
Comenzar
Application.showHint: = false;
fin;
Después de ejecutar el programa, no habrá indicaciones.
Si está cansado del color de la ventana de sugerencia que suele ver, puede establecer el hintcolor de la aplicación en otro color. Pero hay un problema en este momento. Para hacer esto, tenemos que entender otro objeto global. La pantalla encierra el estado de ejecutar el proyecto en la pantalla, tiene una propiedad HintFont que le permite establecer la fuente del mensaje de inmediato.
Podemos escribir el siguiente código:
procedimiento tForm1.Button1Click (remitente: tobject);
Comenzar
Application.hintcolor: = clblack;
Screen.hintfont.color: = clwindow;
Screen.hintfont.size: = 14;
fin;
Ejecute el programa para ver el efecto, y provoca que la fuente se haya vuelto blanca y se haya vuelto más grande.
Además, la aplicación tiene estas tres propiedades:
Hinthidepause, hintpause, hintshortpause, controla el tiempo que se muestra en la ventana de inmediato, etc. HinthidePause especifica la hora en que se mostrará la ventana de inmediato en la pantalla, en milisegundos. Hintpause especifica cuánto tiempo se tarda en aparecer la ventana rápida en milisegundos cuando mueve el cursor al control solicitado. Hintshortpause significa que cuando se mueve rápidamente el cursor a través de un conjunto de controles de sugerencia, se muestra el intervalo de sugerencia. Por ejemplo, hay dos controles de sugerencia.
Hay una pista de atributo especial en la aplicación. De hecho, un gran propósito del atributo de sugerencia es dar controles que no pueden aparecer directamente en las ventanas de sugerencia, para que puedan aparecer de otras maneras. Por ejemplo, para los menús, no podemos hacer que el menú aparezca en la ventana de sugerencia, pero podemos hacer que la pista del menú aparezca en la barra de estado.
Agregamos una barra de estado a la ventana principal del proyecto de arriba, agregamos un control de menú, establecemos varios elementos de menú y establecemos algunas cadenas para los atributos de pista recomendados para cada menú.
Luego escriba:
procedimiento tForm1.FormCreate (remitente: tobject);
Comenzar
Aplicación.onhint: = whenhint;
fin;
procedimiento tForm1.WhenHint (remitente: tobject);
Comenzar
Statusbar1.simpletext: = Application.hint;
fin;
Cuando ejecuta el programa, cuando señala el elemento del menú, verá que aparece un mensaje en la barra de estado.
Como puede ver anteriormente, algún código simple puede hacer que las indicaciones sean únicas. Pero la gente nunca estará satisfecha. Los ingenieros de Delphi pensaron en esto hace mucho tiempo.
Vaya y lea el código fuente de HintWindow.
Aunque la pista de Delphi es simple y fácil de usar, no es lo suficientemente flexible porque proporciona un estilo unificado, por lo que no puede especificar un mensaje como una indicación de error, o un aviso como una indicación de advertencia. Con respecto a esto, necesitamos usar una API para implementarla. No hablaré de eso aquí.