Что не так?
В скрипте пишу следующий текст:
В тексте программы регистрю классы TMainMenu и TMenuItem
Однако при компиляции скрипта выводится сообщение:
"Incompatible types: 'Class TMenuItem', 'Class TMenuItem'".
Что не так?
var
AItem:TMenuItem;
begin
AItem := TMenuItem.Create(nil);
end.
В тексте программы регистрю классы TMainMenu и TMenuItem
with fsGlobalUnit do
begin
fsScript.AddClass(TMainMenu, 'TMenu');
fsScript.AddClass(TMenuItem, 'TComponent');
end; // with
Однако при компиляции скрипта выводится сообщение:
"Incompatible types: 'Class TMenuItem', 'Class TMenuItem'".
Что не так?
Комментарии
with fsGlobalUnit do
begin
AddClass(TMainMenu, 'TMenu');
AddClass(TMenuItem, 'TComponent');
end;
Класс Tmenu тоже надо зарегистрировать.
Еще один вопрос - правильно ли я понимаю, что через published можно автоматически "закачивать" при регистрации только свойства класса, но не методы и их надо отдельно подключать?