[TControl] Récupérer le message court et long du hint ?

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

Code:

---

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 !

Bonjour

Citation:

---

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

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.

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é :(

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.

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:

---

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

---

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