RE:Mostrar ayuda
Publicado por
Deysi (1 intervención) el 30/07/2005 00:17:45
lo que tienes que hacer que en tu opcion de tu menu principal es por ejemplo
Archivo Ayuda
Contenido
en contenido agregar codigo como
*****este****
procedure TForm1.Contenido1Click(Sender: TObject);
begin
Application.HelpFile := Pathapp+'BUFFCAS.hlp'; //accesar a la ayuda de Reportel
Application.HelpCommand(help_contents,0);
end;
pero antes declarar tu variable Pathapp como tipo String;
y en el evento Create de tu forma agregar el siguiente codigo
procedure TForm1.FormCreate(Sender: TObject);
begin
//EXTRAE PATH DE APLICACION
PathApp:=ExtractFilePath(ParamStr(0));
if ParamStr(1)<>'' then
PathApp:=ExtractFilePath(ParamStr(1));
Application.Helpfile:=PathApp+'buffer.hlp';
if PathApp='' then PathApp:=ExtractfileDir(Application.Exename)+'\';
end;
espero que haya podido ayudar