type
THIWin = class(TDebug)
protected
NoKill:boolean;
....
destructor THIWin.Destroy;
begin
if not NoKill then begin
Split.Free;
Control.Free;
end;
inherited;
end;
procedure THIWin._OnDestroy;
begin
NoKill := true;
end;procedure THIMainForm._onClose;
...
//Applet := nil;
//Control := nil;
end;
end;((грубо говоря, фиксинг ранее мне не предствляется достаточным, и это НЕ дополнительно к нему, а ВМЕСТО него
))
Исправлять это на SVN я не буду.
Поскольку имел убедительную просьбу от Dilma не вносить изменений в системные файлы без "обсуждения"
Что и является основной причиной отличий моих кодов от дистрибутива. А не моя гипотетическая скрытность.
Скажем здесь основные отличия моего win.pas. Но основная польза от этого будет, если MainForm.Init будет вызывать inherited (у меня вызывает).
Как результат - у меня нет проблем о обработкой клавиатуры, а научит этому никого не могу.
Вот такая у нас жизнь сегодня
Поиск
Друзья
Администрация