Вверх ↑
Разработчик
Ответов: 26181
Рейтинг: 2129
#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