AddClassAlias etc.
Добрый день.
Уважаемые разработчики.
Маленький вопросик.
Планируется ли в будущем возможность регистрации класса по алиасу
Примерно так
AddClass(AClass: TClass; const Ancestor: String;ClassAlias:String='')
Это , к примеру даст возможность добавлять в один скрипт две динамически создаваемые формы с одинаковыми контролами на них.
Например :
var Form1:TForm;
Button1:TButton;
begin
Form1:=TForm.Create(Application);
Button1:=TButton.Create(Form1);
Button1.Parent:=Form1;
Button1.Name:='Button1';
Form1.Name:='Form1';
MyScript.AddClass(Form1.ClassType,Form1.ClassName,'T'+Form1.Name);
MyScript.AddComponent(Form1,'T'+Form1.Name);
end;
Тогда в скрипте позволяется работать с Button1
через вызов Form1.Button1
Заранее благодарен за ответ
Уважаемые разработчики.
Маленький вопросик.
Планируется ли в будущем возможность регистрации класса по алиасу
Примерно так
AddClass(AClass: TClass; const Ancestor: String;ClassAlias:String='')
Это , к примеру даст возможность добавлять в один скрипт две динамически создаваемые формы с одинаковыми контролами на них.
Например :
var Form1:TForm;
Button1:TButton;
begin
Form1:=TForm.Create(Application);
Button1:=TButton.Create(Form1);
Button1.Parent:=Form1;
Button1.Name:='Button1';
Form1.Name:='Form1';
MyScript.AddClass(Form1.ClassType,Form1.ClassName,'T'+Form1.Name);
MyScript.AddComponent(Form1,'T'+Form1.Name);
end;
Тогда в скрипте позволяется работать с Button1
через вызов Form1.Button1
Заранее благодарен за ответ