Объекты в fsScript
Здравствуйте, у меня возникла проблема, помогите мне ее решить.
Описание:
Допустим имеются 2 формы
aForm, bForm: TForm;
В один прекрасный момент происходит примерно следующее
....
bForm:= TForm.Create(Self);
bform.Name:= 'bForm';
aForm:= TForm.Create(Self);
aform.Name:= 'aForm';
with TLabel.Create(aForm) do begin
Name:= 'aLabel';
Parent:= aForm;
Top:= 20;
Left:= 20;
Visible:= true;
end;
with TLabel.Create(bForm) do begin
Name:= 'aLabel';
Parent:= bForm;
Top:= 20;
Left:= 20;
Visible:= true;
end;
Далее эти формы формы регистрируются в скрипте
...
fsScript1.AddForm(aForm);
fsScript1.AddForm(bForm);
Допустим пишем скрипт
....
aForm.aLabel.Caption:= 'Hallo 1';
aForm.Show;
bForm.aLabel.Caption:= 'Hallo 2';
bForm.Show;
В результате получаем 'Hello 2' на метке формы aForm.
Посмотрел как работает AddForm - она действительно строит объект, который содержит все собственные объекты, но ошибка на лицо.
Описание:
Допустим имеются 2 формы
aForm, bForm: TForm;
В один прекрасный момент происходит примерно следующее
....
bForm:= TForm.Create(Self);
bform.Name:= 'bForm';
aForm:= TForm.Create(Self);
aform.Name:= 'aForm';
with TLabel.Create(aForm) do begin
Name:= 'aLabel';
Parent:= aForm;
Top:= 20;
Left:= 20;
Visible:= true;
end;
with TLabel.Create(bForm) do begin
Name:= 'aLabel';
Parent:= bForm;
Top:= 20;
Left:= 20;
Visible:= true;
end;
Далее эти формы формы регистрируются в скрипте
...
fsScript1.AddForm(aForm);
fsScript1.AddForm(bForm);
Допустим пишем скрипт
....
aForm.aLabel.Caption:= 'Hallo 1';
aForm.Show;
bForm.aLabel.Caption:= 'Hallo 2';
bForm.Show;
В результате получаем 'Hello 2' на метке формы aForm.
Посмотрел как работает AddForm - она действительно строит объект, который содержит все собственные объекты, но ошибка на лицо.
Комментарии