Тип (Type) Конструктор

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Лево = 600;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Тип0 = Ф.Тип(Ф.Тип("Bitmap"));
Тип1 = Ф.Тип("Картинка");
Тип2 = Ф.Тип("Форма");
Тип3 = Ф.Тип("Form");
Тип4 = Ф.Тип(Форма1);

Сообщить("Тип0.Имя = " + Тип0.Имя);
Сообщить("Тип1.Имя = " + Тип1.Имя);
Сообщить("Тип2.Имя = " + Тип2.Имя);
Сообщить("Тип3.Имя = " + Тип3.Имя);
Сообщить("Тип4.Имя = " + Тип4.Имя);
Сообщить("Форма1 = " + Форма1);

Сообщить("Тип0.Name = " + Тип0.Name);
Сообщить("Тип1.Name = " + Тип1.Name);
Сообщить("Тип2.Name = " + Тип2.Name);
Сообщить("Тип3.Name = " + Тип3.Name);
Сообщить("Тип4.Name = " + Тип4.Name);
Сообщить("Форма1 = " + Форма1);

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Тип0 = Ф.Тип(Ф.Тип("Bitmap"));
Тип1 = Ф.Тип("Картинка");
Тип2 = Ф.Тип("Форма");
Тип3 = Ф.Тип("Form");
Тип4 = Ф.Тип(Форма1);

Сообщить(?(
Тип0.Имя = "Тип" и 
Тип1.Имя = "Картинка" и 
Тип2.Name = "Form" и 
Тип3.Имя = "Форма" и 
Тип4.Имя = "Форма" и 
"" + Форма1 = "КлФорма"
, "", "!!! ") + "Тип (Type) Конструктор" + " " + ТекущаяДата());