OnHelp de Application y Form

[marcoszorrilla]

Mira acabo de hacer la siguiente prueba, y me funciona sin ningún problema:

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.HelpFile := 'D:\pruebas\Ren2003e.hlp';
  Application.CreateForm(TForm1, Form1);
  Application.Run;

//---------

implementation

{$R *.DFM}

function TForm1.ApplicationEvents1Help(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
ShowMessage('Llamando a la ayuda');
end;

Cada vez que pulso F1 me muestra el mensaje que ves y ademas me abre el fichero de ayuda que he colocado circunstancialmente.

Un Saludo.