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