сегодня ситуация такова: после правки 508 строки я получаю корректно работающие формы по всем вопросам означенным выше (собственно то, что и было раньше и на что никто никогда не жаловался). Смысл в этом
Galkov писал(а):
А если никогда не делать NewApplet, а просто отождествлять нашу главную с аплетом, то это еще и 100%-ный вариант.
И возможности при этом как работы с кнопками аплета, как и комбинаций взаимо-онерства - ровно такие же как и в Kol
Если у них не заставишь, ну значит и у нас не заставишь. И наоборот...
может быть и есть - не буду спорить - но лично я его не вижу.
а значит на текущий момент единственным вариатом выхода из ситуации является прокидывание дефайна, который позволит не нарушить совместимость, но и вернуться к привычному методу наследования
#pas
{$ifdef APPLET_FORM}
if FParent = nil then
{$endif}
Control := NewForm(Applet,'Form')
{$ifdef APPLET_FORM}
else Control := NewForm(FParent,'Form');
{$else}
;
{$endif}
Поиск
Друзья
Администрация