下雨天不爱打伞

摘要： procedure TForm1.FormCreate(Sender: TObject);begin DC := GetDC(Handle);//获取句柄 if not InitOpenGL then Application.Terminate;//如果初始化opengl失败则退出程序 RC := 阅读全文

摘要： https://delphigl.com 请从这里下载dglopengl.pas在option里面添加引用。 由于是德语网站，请添加翻译软件，嗯，翻译后的语句读起来也是不是很明白。。。 点击顶部的tut0rial进入教程，同样需要翻译软件帮忙，德语完全看不懂。 以下是第一个教程的代码，稍作了一些改动 阅读全文