Для создания формы необходимо создать объект TCSForm (FormName, CanReUse) (метод интерфейса IOCS_Application7). Здесь:

 

·         FormName - имя модуля формы;

·         CanReUse - позволяет повторное использование формы. Если равно True, то форма не уничтожается при уничтожении интерфейса, и может быть использована повторно. Если False, то форма уничтожается вместе с интерфейсом.

 

Далее можно установить свойства формы:

 

·         заголовок (Caption),

·         координата по X (Left),

·         координата по Y (Top),

·         высота (Height),

·         ширина (Width).

 

Для показа формы используется метод ShowModal. например:

 

 Set Form = TCSApp.TCSForm( "FormModule1", False )

   Form.Left = 10

   Form.Top = 10

   Form.Height = 200

   Form.Width = 200

   Form.ShowModal

 

Пример обработчика FormEvent_OnObjectClick, который показывает сообщение с именем компонента вызвавшего событие:

 

Sub FormEvent_OnObjectClick(Form, ObjName)

  MsgBox ObjName

End Sub

 

Компоненты на форме можно получить по имени, по индексу или по упрощенному имени. Для этого нужно вызвать метод Form.Controls("имя_компонента"), Form.Controls(индекс_компонента) или Form.с_имя_компонента соответственно. После этого доступ к свойствам компонента осуществляется через:

 

<компонент>.<свойство>

 

Например:

 

Sub FormEvent_OnObjectClick(Form, ObjName)

   Set l = Form.Controls("TVBLabel_0")

   l.caption = "SomeText"

End Sub

     

 

15.4 Редактор форм