Sugerencias para los elementos de menú

Sugerencias para los elementos de menu

Sugerencias para los elementos de menu : Multi-millones de consejos para hacer su vida mas facil.

¿Como puedo crear consejos para los elementos de Menu?
En el formulario, nosotros asumimos que usted tiene un MainMenu y una barra de Estado
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
& nbsp & nbsp & nbsp & nbsp procedimiento FormCreate(Sender: TObject)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp procedimiento HintHandler(Sender: TObject)
...
procedure TForm1.FormCreate(Sender: TObject)
begin
& nbsp & nbsp // Cada vez que nuestra aplicacion tendra que mostrar una sugerencia
& nbsp & nbsp // se activara la HintHandler procedimiento
& nbsp & nbsp Aplicacion.OnHint := HintHandler
fin
procedure TForm1.HintHandler(Sender: TObject)
begin
& nbsp & nbsp // se puede usar GetLongHint(de Aplicacion.Sugerencia) la funcion
& nbsp & nbsp // extraer la parte larga de la pista si no es una
& nbsp & nbsp StatusBar1.Simple Text := Aplicacion.Sugerencia
& nbsp & nbsp si StatusBar1.SimpleText = ', a continuacion,
& nbsp & nbsp & nbsp & nbsp StatusBar1.Actualizar // A la fuerza de la barra de Estado para la pintura de sus paneles de nuevo
fin