Вверх ↑
Разработчик
Ответов: 26113
Рейтинг: 2126
#1: 2010-05-27 23:04:29 ЛС | профиль | цитата
MAV писал(а):
получается извне в doInit можно запихнуть функции только через глобальные переменные, что совсем выглядит мрачно

Почему через глобальные Можно попробовать вот так



implementation

procedure doInit(user:pointer);
begin
Texture:=LoadTextureFromFile('Texture.bmp'); //к примеру
_hi_onEvent(THIDGLE_Load(user).onEnd);
end;

procedure THIDGLE_Load._work_doLoad;
begin
if LoadDGLEngineDLL('DGLEngine.dll') then
RegProcedure(PROC_INIT,@doInit(self));
----------------------------------
карма: 22

0