Conseils pour les éléments de menu
Comment puis-je créer des conseils pour les éléments de Menu?
Sur votre formulaire, nous supposons que vous disposez d'un MainMenu et une Barre d'état
type
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
& ! & ! & ! & nbsp procedure FormCreate(Sender: TObject)
& nbsp & nbsp privé
& ! & ! & ! & nbsp procédure HintHandler(Sender: TObject)
...
procedure TForm1.FormCreate(Sender: TObject)
begin
& nbsp & nbsp // Chaque fois que notre application aura pour afficher un soupçon
& nbsp & nbsp // il va déclencher l'HintHandler procédure
& nbsp & nbsp Application.OnHint := HintHandler
fin
procedure TForm1.HintHandler(Sender: TObject)
begin
& nbsp & nbsp // vous pouvez utiliser GetLongHint(Application.L'astuce) de la fonction
& nbsp & nbsp // pour extraire la partie longue de l'indice si il y en a un
& nbsp & nbsp StatusBar1.SimpleText := Application.Astuce
& nbsp & nbsp si StatusBar1.SimpleText = '
& ! & ! & ! & nbsp StatusBar1.Actualiser // Pour forcer la Barre d'état pour la peinture des panneaux de nouveau
fin
Conseils pour les elements de menu
Conseils pour les elements de menu : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment puis-je creer des conseils pour les elements de Menu?
Sur votre formulaire, nous supposons que vous disposez d'un MainMenu et une Barre d'etat
type
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
& ! & ! & ! & nbsp procedure FormCreate(Sender: TObject)
& nbsp & nbsp prive
& ! & ! & ! & nbsp procedure HintHandler(Sender: TObject)
...
procedure TForm1.FormCreate(Sender: TObject)
begin
& nbsp & nbsp // Chaque fois que notre application aura pour afficher un soupçon
& nbsp & nbsp // il va declencher l'HintHandler procedure
& nbsp & nbsp Application.OnHint := HintHandler
fin
procedure TForm1.HintHandler(Sender: TObject)
begin
& nbsp & nbsp // vous pouvez utiliser GetLongHint(Application.L'astuce) de la fonction
& nbsp & nbsp // pour extraire la partie longue de l'indice si il y en a un
& nbsp & nbsp StatusBar1.SimpleText := Application.Astuce
& nbsp & nbsp si StatusBar1.SimpleText = '
& ! & ! & ! & nbsp StatusBar1.Actualiser // Pour forcer la Barre d'etat pour la peinture des panneaux de nouveau
fin
Conseils pour les éléments de menu
By commentfaire
Conseils pour les éléments de menu : Plusieurs milliers de conseils pour vous faciliter la vie.