procedure Thelp.FormCreate(Sender: TObject);

procedure Thelp.FormCreate(Sender: TObject);

begin

IpHtmlPanel1.OpenURL(expandLocalHtmlFileName('ind3.html'));

end;

Примечание: Самостоятельно обработать условие для кнопки назад.

10. У всех созданных форм установить свойство Position в poScreenCenter (форма центрируется по экрану).

11. Создать типовую диалоговую форму выхода с подтверждением выхода, на кнопку «Выход» на главной форме открывать созданную форму.

На кнопку «Выход» определить событие выхода с диалоговым окном подтверждения.

Примерный код выхода с подтверждением приведен ниже.

procedure Tglavn.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

Application.Terminate;

end;

procedure Tglavn.FormCloseQuery(Sender: TObject; var CanClose: boolean);

begin

if (MessageDlg('Вы действительно хотите выйти?', dialogs.mtConfirmation,[mbYes,mbCancel],0)=2) then

canclose:=false;

end;

12.Создать форму «О разработчике», разместив в ней сведения о программе и авторе разработки. Выполнить так, чтобы вызывать эту форму возможно было как из формы glav, так и из формы igra. Также сделайте данную форму модальной. Измените свойство: BorderStyle-bsNone (данное свойство позволяет убрать кнопки минимизировать, максимизировать, закрыть).

⇐ Предыдущая 12