Kro*_*ica 7 delphi opengl delphi-xe2 firemonkey
在过去的日子里,我会创建一个TForm,在其上放置一个TMyPanel(覆盖WM_PAINT消息)并将其Handle传递给一堆WGL函数,这些函数找到兼容的pixelformat并创建渲染上下文.就像NeHe教程一样.
现在有FireMonkey应用程序.如何在Win和iOS上运行OpenGL 1.4渲染上下文？
编辑:试图通过传递TForm.Handle(这是NativeUInt)使其工作.好消息 - OpenGL没有错误,但坏消息 - 在TForm上也没有输出..我显然在这里缺少一些关键部分,是否有人在FireMonkey应用程序中有一个可用的OpenGL？
经过一些调查，我成功地在 Windows 平台上的 FireMonkey 中创建了 OpenGL 上下文。我还无法访问 iOS，但我确信也可以在那里做一些事情。
解决方案：添加FMX.Platform.Wintouses子句（对于 iOS 可能需要将其包装到IFDEF's 中）。现在我们可以使用FmxHandleToHWND(Form1.Handle)来获取 valid HWND. 就是这样。FMX.Platform.Win在 MacOS 上，通过添加和调用来完成相同的操作H_WND := FmxHandleToObjC(AHandle);。