Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2008.09.07;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
2-1217268352
Lamer666
2008-07-28 22:05
2008.09.07
preg_match_all в Delphi


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


2-1217251593
alex-drob
2008-07-28 17:26
2008.09.07
Выборка из таблицы по дате


2-1215903057
ply
2008-07-13 02:50
2008.09.07
увеличение времени исполнения запросов к БД


2-1217151979
ванъка
2008-07-27 13:46
2008.09.07
TImageList





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский