Discussion :

[alainvh]

Bonjour à tous et toutes.
L'aide Delphi et la FAQ n'ayant pas solutionné mon problème, je vous le soumets : mon info-bulle "Nini" (cf. code ci-dessous) apparaît bien quand le curseur de la souris arrive sur le fond de la fiche, mais mon info-bulle "Toto" ne s'affiche jamais quand on pointe sur l'item "Fichier" du menu.
Voici l'intégralité de mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Quitter1: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HintColor := clAqua;
  Application.HintPause := 10;
  Application.HintHidePause := 300;
  Application.ShowHint:=True;
  Form1.ShowHint:=True;
  Form1.Hint:='Nini';
  Fichier1.Hint:='Toto';
end;
 
end.

D'avance merci.
Alain

[Cl@udius]

Salut

Voici l'extrait de l'aide de Delphi concernant TMenuItem.Hint:

Affectez à la propriété Hint une chaîne donnant davantage d'informations que Caption sur le rôle de l'élément de menu. Le texte du conseil apparaît dans la barre d'état quand l'utilisateur laisse la souris au-dessus de l'élément de menu si Hint est activé

Donc pas d'info-bulle sur un menu, mais uniquement via un TStatusBar.

@+ Claudius.

[alainvh]

Merci Cl@udius (une fois de plus !!! )
Je n'ai pas bien interprété la lecture de l'aide et ai donc posé une question idiote !
Très bon week-end.
Cordialement,
Alain

[cincap]

@ Claudius et @ alainvh, pas de question idiote, il y a moyen de le faire avec un TMainMenu, un TPopuMenu et un TApplicationEvents !


Voici un exemple assez simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, AppEvnts, StdCtrls, ExtCtrls, ComCtrls;
 
 
type
  TMenuItemHint = class(THintWindow)
  private
    activeMenuItem : TMenuItem;
    showTimer : TTimer;
    hideTimer : TTimer;
    procedure HideTime(Sender : TObject);
    procedure ShowTime(Sender : TObject);
  public
    constructor Create(AOwner : TComponent); override;
    procedure DoActivateHint(menuItem : TMenuItem);
    destructor Destroy; override;
  end;
 
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    mnuMenu: TMenuItem;
    Firstitem1: TMenuItem;
    Seconditem1: TMenuItem;
    hirditem1: TMenuItem;
    N11: TMenuItem;
    b1: TMenuItem;
    PopupMenu1: TPopupMenu;
    pp11: TMenuItem;
    pp21: TMenuItem;
    StatusBar1: TStatusBar;
    ApplicationEvents1: TApplicationEvents;
    NOhintitem1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Hint(Sender: TObject);
  private
    miHint : TMenuItemHint;
    procedure WMMenuSelect(var Msg: TWMMenuSelect); message WM_MENUSELECT;
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  miHint := TMenuItemHint.Create(self);
end; (*FormCreate*)
 
procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
  StatusBar1.SimpleText := 'App.OnHint : ' + Application.Hint;
end; (*Application.OnHint*)
 
procedure TForm1.WMMenuSelect(var Msg: TWMMenuSelect);
var
  menuItem : TMenuItem;
  hSubMenu : HMENU;
begin
  inherited; // from TCustomForm
 
  menuItem := nil;
  if (Msg.MenuFlag <> $FFFF) or (Msg.IDItem <> 0) then
  begin
    if Msg.MenuFlag and MF_POPUP = MF_POPUP then
    begin
      hSubMenu := GetSubMenu(Msg.Menu, Msg.IDItem);
      menuItem := Self.Menu.FindItem(hSubMenu, fkHandle);
    end
    else
    begin
      menuItem := Self.Menu.FindItem(Msg.IDItem, fkCommand);
    end;
  end;
 
  miHint.DoActivateHint(menuItem);
end; (*WMMenuSelect*)
 
 
{ TMenuItemHint }
constructor TMenuItemHint.Create(AOwner: TComponent);
begin
  inherited;
 
  showTimer := TTimer.Create(self);
  showTimer.Interval := Application.HintPause;
 
  hideTimer := TTimer.Create(self);
  hideTimer.Interval := Application.HintHidePause;
end; (*Create*)
 
destructor TMenuItemHint.Destroy;
begin
  hideTimer.OnTimer := nil;
  showTimer.OnTimer := nil;
  self.ReleaseHandle;
  inherited;
end; (*Destroy*)
 
procedure TMenuItemHint.DoActivateHint(menuItem: TMenuItem);
begin
  //force remove of the "old" hint window
  hideTime(self);
 
  if (menuItem = nil) or (menuItem.Hint = '') then
  begin
    activeMenuItem := nil;
    Exit;
  end;
 
  activeMenuItem := menuItem;
 
  showTimer.OnTimer := ShowTime;
  hideTimer.OnTimer := HideTime;
end; (*DoActivateHint*)
 
procedure TMenuItemHint.ShowTime(Sender: TObject);
var
  r : TRect;
  wdth : integer;
  hght : integer;
begin
  if activeMenuItem <> nil then
  begin
    //position and resize
    wdth := Canvas.TextWidth(activeMenuItem.Hint);
    hght := Canvas.TextHeight(activeMenuItem.Hint);
 
    r.Left := Mouse.CursorPos.X + 16;
    r.Top := Mouse.CursorPos.Y + 16;
    r.Right := r.Left + wdth + 6;
    r.Bottom := r.Top + hght + 4;
 
    ActivateHint(r,activeMenuItem.Hint);
  end;
 
  showTimer.OnTimer := nil;
end; (*ShowTime*)
 
procedure TMenuItemHint.HideTime(Sender: TObject);
begin
  //hide (destroy) hint window
  self.ReleaseHandle;
  hideTimer.OnTimer := nil;
end; (*HideTime*)
 
end.

@+,

Cincap

[alainvh]

Bonsoir Cincap.
Merci pour ta participation ! Mais j'ai bien peur que ton code ne soit un peu trop complexe pour mes petites méninges. Toutefois, promis, je vais le bosser demain et te ferai connaître mes impressions.
Bonne nuit.
Cordialement,
Alain

[cincap]

@ Alainvh, il a été testé sur Os Vista et D6.

@+,

Cincap

[alainvh]

Bonjour... et vive le décalage horaire !!!

@ Cincap
J'ai essayé le code que tu m'as proposé : il réalise ce que je souhaite. Mais ce code est trop complexe pour moi (en fait je ne connais pas le SDK Windows) et j'ai pour principe de ne "copier-coller" du code que si je l'ai compris (et ce, avec l'autorisation de l'auteur, bien sûr ). Je ne l'utiliserai donc vraisemblablement pas, mais je le conserve car je le bosserai encore à mes moments perdus. Merci encore pour ton aide qui m'a permis de découvrir plein de trucs (et bien content que tu aies solutionné ton problème jpg/dll).

@ Cl@audius
L'aide Delphi pour TMenuItem Hint fournit ceci :

Si les conseils sont activés (c'est-à-dire si les propriétés ShowHint de la fiche et de l'application ont la valeur true), le texte de conseil apparaît dans une fenêtre de conseil quand l'utilisateur laisse la souris au-dessus de l'élément de menu.

"Fenêtre de conseil", c'était un peu vague pour moi. L'aide évoque StatusBar quand on cherche OnHint TApplication et fournit un exemple Delphi qui m'a bien servi : merci pour ta piste.

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
// Affichage dans un TStatusBar d'une aide en survolant avec la souris
// un sous menu (ici, sous-menu de "Outils")
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Quitter1: TMenuItem;
    Outils1: TMenuItem;
    Sauver1: TMenuItem;
    Charger1: TMenuItem;
    Paramtrer1: TMenuItem;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure DisplayHint(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.DisplayHint(Sender: TObject);
begin
  StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := DisplayHint;
  Application.ShowHint:=True;
  Form1.ShowHint:=True;
  Outils1.Hint:='Sous-menu Outils';
  Sauver1.Hint:='Message d''aide pour Sauver';
  Charger1.Hint:='Message d''aide pour Changer';
  Paramtrer1.Hint:='Message d''aide pour Paramétrer';
end;
 
end.

Excellente semaine à tous deux.

Cordialement,
Alain