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