Создание формы-мастера

Для создания формы-мастера выполните следующие действия:

Создайте форму с идентификатором «PluginMasterForm». Данная форма должна быть наследником класса AdhocUserMasterForm. Выделите форму и в инспекторе объектов на вкладке «Свойства» задайте для свойства «Text» значение «Параметры:».

В верхней части формы разместите компонент Label с идентификатором «Label_Caption». Выделите данный компонент и в инспекторе объектов на вкладке «Свойства» задайте для свойства «Text» значение «Заголовок».

Добавьте на форму компонент EditBox с идентификатором «EditBox_Caption». Выделите данный компонент и в инспекторе объектов на вкладке «События» задайте событие «OnChange». Код обработчика события приведен ниже. Форма должна принять следующий вид:

Добавьте ссылку на системную сборку Adhoc и на сборку PluginViewForm в текущем репозитории.

Задайте код формы:

Class PluginMasterFormForm: AdhocUserMasterForm
    Label_Caption: Label;
    EditBox_Caption: EditBox;
    ViewForm: PluginViewFormForm;

    // Обработка события: изменение текста в EditBox_Caption
    Sub EditBox_CaptionOnChange(Sender: Object; Args: IEventArgs);
    Begin
        ViewForm.SetLabelText(EditBox_Caption.Text);
    End Sub EditBox_CaptionOnChange;

    // Функция получения формы-визуализатора
    Function GetViewForm: PluginViewFormForm;
    Begin
        Return ViewForm;
    End Function GetViewForm;

    { Процедура задания формы визуализатора и
      начального значения EditBox_Caption.
      Реализация AdhocUserMasterForm.View}
    Protected Sub set_View(Val: Object);
    Begin
        ViewForm := Val As PluginViewFormForm;
        EditBox_Caption.text := GetViewForm.GetLabelText;
    End Sub set_View;

End Class PluginMasterFormForm;

См. также: