Discussion :

[Cornell]

Avec ce code il ne me récupère que le message long, Application.Hint est toujours égal à 'long' ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.DisplayHint(Sender: TObject);
begin
  Label1.Caption := GetShortHint(Application.Hint);
  Label2.Caption := GetLongHint(Application.Hint);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Hint := 'Short|long';
  Application.OnHint := DisplayHint;
end;

Comment récupérer les 2 messages ?
Merci d'avance !

[AlDel]

Bonjour

procedure TForm1.DisplayHint(Sender: TObject);
begin
Label1.Caption := GetShortHint(Application.Hint);
Label2.Caption := GetLongHint(Application.Hint);
end;

si tu remplace Application.Hint par Button1.Hint tu auras ce que tu désire

[Cornell]

Oui mais je cherche à récupérer les messages quelque soit le contrôle survolé, si je mets button1.hint je ne peux pas, par exemple récupérer le message d'aide d'un bouton button2.

[AlDel]

Effectivement,

J'ai essayé plusieurs pistes : par les controles qui capture la souris,
par onshowHint qui paraissais prometteur, mais l'évènement application.onshowhint ne se déclanche pas, dommage car tu avais HintSTR et HintInfo dont un des enregistrements pointait sur le contrôle, je me suis peut-être planté

[AlDel]

Une autre piste, mais j'ai pas le temps de la tester : passer par la VCL applicationEvents et prendre son onshowhint, ou son onhint s'il marche.

[Cornell]

Il faut mettre le caractère " | " entre les 2 chaînes mais aussi dès le début de la 1ère chaîne.

Code :

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

  Button1.Hint := '|Short|long';

[AlDel]

Merci pour le suivi : un mystère de plus de dévoilé !!