Application.OnHelp et appui sur F1
j'ai un petit problème avec l'appel de mon fichier d'aide, le problème se situe à priori sur l'appuie sur la touche f1, le programme ne lance pas l'aide :(
mais le processeur travail (30% utilisation proc dans le gestionnaire de tache) lorsque je reste appuyé sur f1, donc je pense qu'il doit chercher l'aide, mais il ne me lance rien...
voici mon code
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
function TForm1.AppHelp(Command: Word; Data: Longint; var CallHelp: Boolean): Boolean;
begin
Application.HelpFile := 'del6ilib.hlp';
CallHelp := True;
result := True;
end;
Procedure TForm1.FormCreate(Sender : TObject);
Begin
Application.OnHelp := AppHelp;
End; |
mon problème est que je n'arrive pas à le débugger car quand je met un point d'arrêt au début de la fonction AppHelp, il ne s'arrête pas???
AppHelp est déclaré dans le private de ma form.
j'ai mis un edit sur ma form avec un helpkeyword.
si quelqu'un connais une solution...
ce que je ne comprend vraiment pas c'est qu'il ne passe pas dans ma fonction...
@+