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));
----------------------------------