6 respuestas en este tema

[mariarosina1984]

tengo una curiosidad podemos programar un form enlazado con codigo html? y por que ventajas y desventajas?

[eduarcol]

como es eso??  exactamente que necesitas?? 

[mariarosina1984]

como es eso??  exactamente que necesitas??  no se como controlar un archivo .chm en delphi

[Marc]

¿ Que quieres decir con controlar un archivo .chm en Delphi ?.

¿ Quieres que se vea ese archivo .chm dentro de un formulario de tu aplicación ?.

[mariarosina1984]

¿ Que quieres decir con controlar un archivo .chm en Delphi ?.

¿ Quieres que se vea ese archivo .chm dentro de un formulario de tu aplicación ?.

quiero controlar sus bodericons del archivo ke cuando el usuario pique LA X TE MANDE A LLAMAR AL FORM4.SHOW;

[enecumene]

Mi estimada María, deberás hacer un esfuerzo en tratar de rellenar las oraciones faltantes, puedo hablar por los demás compañeros de que no te estamos entendiendo, trata de explicar con lujo y detalles lo que deseas lograr, recuerda, que aquí no se cobra nada ya sea por caracteres o líneas escritas.

Saludos.

[mariarosina1984]

Mi estimada María, deberás hacer un esfuerzo en tratar de rellenar las oraciones faltantes, puedo hablar por los demás compañeros de que no te estamos entendiendo, trata de explicar con lujo y detalles lo que deseas lograr, recuerda, que aquí no se cobra nada ya sea por caracteres o líneas escritas.

Saludos.

1.- MANDAR A LLAMAR UN FORM A UN ARCHIVO DE AYUDA YA
2.- KE EL ARCHIVO DE AYUDA CUANDO EL USUARIO le pica en la x, se regrese del form tipo form4.show;
3.- uso d5 son 4 forms y es un bitbutton mandar a llamar a eso mediante un helpcontext y helpfile
4.- mediante un procedure ya se abrir el archivo de ayuda y mandar a llamar a su mapid pero lo que no entiendo es como hace la funcion
me diante el bordericon de .chm se cierre lo que quiero es manipular un archivo .chm mediante delphi


este es mi codigo:

delphi

unit Unit4;
 
interface
 
uses
  Windows,Messages, sysUtils, Classes, Graphics, controls, Forms, Dialogs, StdCtrls, DBTables, DB, Mask, DBCtrls,
  Buttons;
 
type
  TForm4 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label10: TLabel;
    Query1: TQuery;
    Query2: TQuery;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
 
   
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
uses Unit3;
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
begin
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from BLIBROS where ISBN = :ISBN ');
  query1.Params[0].AsString := Edit7.Text;
  Query1.Open;
  if (Edit7.Text=Query1.FieldByName('ISBN').AsString) then begin
    showmessage('Ya existe');
   edit1.clear;
   edit2.clear;
   edit3.clear;
   edit4.clear;
   edit5.clear;
   edit6.clear;
   edit7.clear;
   edit8.clear;
   edit9.clear;
   edit10.clear;
    CLOSE;
end else begin if Query1.IsEmpty then begin
  Query2.SQL.text:= 'INSERT INTO BLIBROS (AREA,FOLIO,TITULO,AUTOR,EDITORIAL,EDICION,ISBN,PAIS,TEMA_1,TEMA_2) VALUES('+ 
QuotedStr(Edit1.Text) + ',' + QuotedStr(Edit2.Text) + ','+ QuotedStr(Edit3.Text) + ',' + QuotedStr(Edit4.Text) + ',' +
QuotedStr(Edit5.Text) + ',' + QuotedStr(Edit6.Text) + ',' + QuotedStr(Edit7.Text) +', ' + QuotedStr(Edit8.Text) +' , ' +
QuotedStr(Edit9.Text) + ','+ QuotedStr(Edit10.Text) + ')';
  showmessage('Los datos ingresados son guardados');
  query2.ExecSQL;
  CLOSE;
  EDIT1.Clear;  //limpiar edits una vez puesto los datos cuando cierra la pantalla se limpia
  EDIT2.CLEAR;  //tmb son insertados
  EDIT3.CLEAR;
  EDIT4.CLEAR;
  EDIT5.CLEAR;
  EDIT6.CLEAR;
  EDIT7.CLEAR;
  EDIT8.Clear;
  EDIT9.CLEAR;
  EDIT10.CLEAR;
   end else begin
   ShowMessage('Los datos ingesados son incorrectos, por favor vuelvelos a introducir');
  end;
  query1.Close;
end;
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        form3.query1.close;  //actualiza el form 3 con los datos agregados hechos esxclusivos con el insert
        form3.query1.open;    // a la hora de cerrar el form 
end;
 
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
  APPLICATION.HELPFILE:='Project1.chm';
   //tion.HelpCommand(HELP_KEY, DWORD(keyData));
 application.helpcontext(1);
 ShowWindow(application.Handle, SW_hide);
form4.show;
 
 end;