Comment convertir un SYSTÈME d'AIDE pour application D2-5 vers D6 ?

Bonjour,

J'ai trouvé un super demo (avec source) pour implanter un système d'aide avec Delphi sur le site de Borland malheureusement ce demo est conçu pour fonctionner sous Delphi 2-5 si on compile le demo sous Delphi 6 les popups s'affichent dans une fenêtre au lieu de s'afficher dans un pop-up (rectangle). Il y a des petites différences entre ces versions.

Bon, voici le lien vers ce super demo, c'est vraiment un demo complet de toutes les aides possible dans une application Delphi.

http://cc.borland.com/Item.aspx?id=15059

Le demo vient avec sous propre fichier EXE déjà compilé et fonctionne très bien mais lorsqu'on recompile sous D6 alors le problème apparait.
Pour voir le problème mettez le focus sur un champ et pressez F1. L'information s'affiche dans une fenêtre au lieu de s'afficher dans un popup comme dans le EXE qui vient avec le démo.

Si quelqu'un sait comment convertir un système d'aide pour une application D2 vers D6 ou connait un document sur le sujet ou si vous connaissez la cause de ce comportement bizarre sous D6 alors prière de laisser une message sur le forum.

Merci, bye.

le problème semble venir que l'invocation de l'aide d'un topic popup sous delphi 6-7 affiche en plus l'aide "normale", pour corriger cela remplace les lignes

Code:

---

1 2	Application.HelpCommand(HELP_SETPOPUP_POS, Longint(Pt)); Application.HelpCommand(HELP_CONTEXTPOPUP, ContextID);

---

par un appel direct à l'api winhelp

Code:

---

WinHelp(handle,pchar(application.HelpFile),HELP_CONTEXTPOPUP,contextid);

---

Bien sur cela n'est valable que pour des aides hlp, les aides chm (htmlhelp) n'ayant pas de vrai système de popup

Bon,

Je viens de trouver sur le site de Borland que c'est un problème de Delphi.

J'ai remplacé le code par

Code:

---

1 2	WinHelp(handle,pchar(application.HelpFile),HELP_CONTEXTPOPUP,contextid);

---

comme proposé ca fonctionne.

Voici les 2 liens de Borland sur le sujet
http://qc.borland.com/wc/qcmain.aspx?d=2532
http://qc.borland.com/wc/qcmain.aspx?d=3407