CreateForm(ModuleName : String; Mode : Integer; Id : Variant) : Variant
Создать форму

Функция CreateForm создает форму для редактирования базы данных.

Аргумент ModuleName содержит имя модуля формы. Если форма не связана с базой данных, то аргументы Mode и Id игнорируются. Аналогичный результат даёт функция CreateModule.

Аргумент Mode содержит режим редактирования записи:

• emAdd - Создание новой записи. Аргумент Id при этом игнорируется (передайте в Id значение Null).
• emCopy - Копирование записи.
• emEdit - Измененеи записи.
• emView - Просмотр записи.
• emDelete - Удаление записи.

Аргумент Id содержит первичный ключ записи для редактирования.

Возвращаемое значение содержит ссылку на запущенный экземпляр формы (объект).

Пример c Variant:

Procedure AddRecord;
Begin
  CreateForm('Table1Form', emAdd, Null);
End;

Procedure CopyRecord(Id : Integer);
Var
  Form : Variant;
Begin
  Form := CreateForm('Table1Form', emCopy, Id);
  Form.Description := 'Создано пользователем';
End;

Пример:

Procedure CopyRecord(Id : Integer);
Var
  Form : Table1Form;
Begin
  Form := CreateForm('Table1Form', emCopy, Id);
  Form.Title := 'Новый заголовок для формы';
End;

Смотри функции ModalForm, Table.Edit

© RTIT