Листинг 15.7. Вывод справочной информации

// выбор из меню? команды Справка

procedure TForm1.N3Click(Sender: TObject);

HelpFile: string; // файл справки

HelpTopic: string; // раздел справки

pwHelpFile: PWideChar;

// файл справки (указатель на строку WideChar)

pwHelpTopic: PWideChar;

// раздел (указатель на строку WideChar)

Begin

HelpFile:= 'saper.chm';

HelpTopic:= 'saper_02.htm';

// выделить память для

WideChar-строк GetMem(pwHelpFile, Length(HelpFile) * 2);

GetMem(pwHelpTopic, Length(HelpTopic)*2);

// преобразовать ANSI-строку в WideString-строку

pwHelpFile:= StringToWideChar(HelpFile,

pwHelpFile, MAX_PATH*2);

pwHelpTopic:= StringToWideChar(HelpTopic,

pwHelpTopic,32);

// вывести справочную информацию

Form1.Hhopen1.OpenHelp(pwHelpFile,

pwHelpTopic);

end;

Информация о программе

При выборе из меню? команды О программе на экране должно появиться одноименное окно (рис. 15.15).

Рис. 15.15. Окно О программе

Чтобы программа во время своей работы могла вывести на экран окно, отличное от главного (стартового), нужно создать это окно. Делается это выбором из меню File команды New form. В результате выполнения команды New form в проект добавляется новая форма и соответствующим ей модуль.

Вид формы AboutForm после добавления необходимых компонентов приведен на рис. 15.16, значения ее свойств — в табл. 15.8.

Рис. 15.16. Форма О программе

Таблица 15.8. Значения свойств формы О программе

	Свойство	Значение
	Name	AboutForm
	Caption	0 программе
	BorderStyle	BsSingle
	Borderlcons. biSystemMenu	False
	Borderlcons.biMininize	False
	Borderlcons. biMaximize	False

Вывод окна О программе выполняет процедура обработки события click, которое происходит в результате выбора из меню? команды О программе.

Непосредственно вывод окна выполняет метод showModai, который выводит окно как модальный диалог.