Buscar

Chamar um help

Código

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;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 12/06/08
Por: Magno Holz
Visualizada: 4228 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009