Выполнение диалогового блока
-----------------------------------------------------------------
Чтобы выполнить специализированный диалоговый блок, исполь- зуйте тот же метод ExecDialog, который вы уже использовали для других диалоговых блоков:
Application^.ExecDialog(New(PDialog,Init(@Self,'ABOUTBOX')));
Естественно, нужно определить команду для вывода диалогового блока About box; Steps использует сообщение cm_About, генерируе- мое выбором меню Optrions|About. Теперь такой вид реакции на ко- манду должен быть вам достаточно знаком (см. файл STEP05.PAS):
type TStepWindow = object(TWindow) . . . procedure CMAbout(var Msg: TMessage); virtual cm_First + cm_About; end;
procedure TStepWindow.CMAbout(var Msg: TMessage); begin Application^.ExecDialog(New(PDialog, Init(@Self, 'ABOUTBOX'))); end;
В шаге 6 мы создадим более сложное диалоговое окно с нес- колькими управляющими элементами.
