Delphi dicas

Chamar um help

NO EVENTO OnCreate coloque este comando

//    Application.OnMessage := ProcessaMsg;



//ia este procedimento

procedure TFrmSaude.ProcessaMsg(var Msg: TMsg; var Handled: Boolean);

begin

        // CHAMANDO ARQUIVO DE AJUDA (HELP)

        If Msg.wParam=Vk_f1 then

        begin

                Application.HelpFile := 'C:saude.hlp';

                WinHelp(Handle, PChar(Application.HelpFile), HELP_FINDER, 0);

        end;

end;

por : Magno Holz