Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.09.07;
Скачать: CL | DM;

Вниз

FastScript доступ к объектам дочерних окон.   Найти похожие ветки 

 
Afonya   (2007-12-21 11:52) [0]

Всем добрый день.
У меня в проекте есть главная форма Form1 (unit1).
Существует класс дочерней формы TForm2 (unit2). Она не самосоздаваемая в проекте - создается динамически.
В секторе  initialization модуля unit2 делаю следующее:

   RegisterClasses([TForm2]);
   fsGlobalUnit.AddClass(TForm2,"TForm");  
 

Создание дочерней формы в главной Form1:

procedure TForm1.ActionAddChildFormExecute(Sender: TObject);
var
   ChildForm : TCustomForm;
begin
    ChildForm := TForm2.Create(Self);
    with ChildForm do
         begin
              Parent := Self;
              fsGlobalUnit.AddForm(ChildForm);
         end;
end;    


Объект fsScript1 класса TfsScript1 принадлежит форме Form1.
При попытке выполнить следующий скрипт выдает ошибку:

begin
        ChildForm.ChekBox1.Checked := true;
end.


Вот так вызываю скрипт на выполнение:

procedure TForm1.ActionCompileExecute(Sender: TObject);
begin
                 fsScript1.Clear;
                 fsScript1.Lines := fsSyntaxMemo1.Lines; // загрузка вышеописанного скрипта
                 fsScript1.Parent:= fsGlobalUnit;
                 if fsScript1.Compile
                 then begin
                           ShowMessage("Compiled");
                           fsScript1.Execute;
                      end
                 else begin
                           ShowMessage(fsScript1.ErrorMsg + " at " + fsScript1.ErrorPos);
                           fsScript1.Lines.Clear;
                           fsScript1.Terminate;
                           ShowMessage("N/OT Compiled");
                      end;
           end;
end;


Пожалуйста, подскажите, как обойти эти "грабли".


 
Afonya   (2007-12-21 12:21) [1]

Все!
Разобрался!

Извините за беспокойство...    (дело в имени динамически создаваемого компонента класса TForm2)



Страницы: 1 вся ветка

Текущий архив: 2008.09.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
2-1217326960
Mops
2008-07-29 14:22
2008.09.07
imagelist и image


15-1216212258
Нигер
2008-07-16 16:44
2008.09.07
Update 2 for Delphi 6


11-1193140621
Yury Sidorov
2007-10-23 15:57
2008.09.07
Релиз KOL-CE


2-1217231257
Neon-w
2008-07-28 11:47
2008.09.07
Случайно удалил файл project1


2-1217325989
ванъка
2008-07-29 14:06
2008.09.07
TLabel