Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32) | ||
Este es un componente descendiente de TCustomStatusBar que mostrará el valor de la propiedad Hint del elemento que en ese momento tenga el foco dentro del Form.
La propiedades de este componente son las mismas que las de TStatusBar . Como propiedades y eventos nuevos tenemos :
Propiedades:
TagNumer : Valor de la propiedad Tag de los distintos controles del form que mostrarán su hint en el control HintStatusBar (por defecto 900). A aquellos controles que queramos que muestren su hint en el HintStatusBar deberemos asignarles el valor de esta propiedad en su propiedad Tag..
Caption: Valor del texto mostrado en el control.
Panel: Número que indicará el número del panel (Panels[Panel]) dónde se mostrará el texto del hint de los controles. Si "-1" el control será un "SimplePanel"
Eventos :
OnHintStatusBar: Se produce en el momento de cambio del texto del control. El parámetro sender del evento es el dueño del hint que se mostrará.
Ejemplo :