Marco Cantù 1998, Mastering Delphi 4

Project: HELPPROJ.DPR


Project Structure


HELPPROJ.DPR

program HelpProj;

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

{$R *.RES}

begin
  Application.Initialize;
  Application.HelpFile := 'C:\md4code\Part5\22\HelpProj\Helpproj.hlp';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

HELPFORM.PAS

unit HelpForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    New1: TMenuItem;
    Open1: TMenuItem;
    N1: TMenuItem;
    Close1: TMenuItem;
    N2: TMenuItem;
    Exit1: TMenuItem;
    Edit1: TMenuItem;
    Help1: TMenuItem;
    Index1: TMenuItem;
    N3: TMenuItem;
    About1: TMenuItem;
    Index2: TMenuItem;
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

HELPFORM.DFM

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  HelpContext = 1
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 200
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 16
    object File1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Caption = 'New'
        HelpContext = 101
      end
      object Open1: TMenuItem
        Caption = 'Open'
        HelpContext = 102
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Close1: TMenuItem
        Caption = 'Close'
        HelpContext = 103
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        HelpContext = 104
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object Index2: TMenuItem
        Caption = 'Index'
      end
      object Index1: TMenuItem
        Caption = 'Help Topics'
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = 'About'
      end
    end
  end
end


Copyright Marco Cantù 1998