перевод типа TForm в Real
Здравствуйте, помогите пожалуйста! Пытаюсь прекрутить игровой движок Xtreme3D к Delphi, но есть одна проблема, необходимо привезать его к определённой форме(Окну), при этом созданная форма имеет тип данных TForm, а функция где нужно указать индекс формы для движка должна иметь тип Real. Вопрос такой как перевести TForm в Real?
// Импорт функции движка
function EngineCreate(Win: real): real; stdcall; external 'Xtreme3D.dll';
//
// остальной код
//
MainForm := TForm.Create(nil); Создание формы
// Настройка формы
//
//
EngineCreate(MainForm); // Активация движка
// Конечно же не верно
|