您现在的位置: 中国教师站 >> 教师关注 >> 电脑技术 >> 编程技术 >> Delphi >> 正文

Google
NeHe的opengl教程delphi版(1)----基本框架
作者:Siny 文章来源:中国教师站cn-teacher 点击数: 更新时间:2007-4-22 15:51:28
;  End;

   If (Fullscreen) Then                 // 仍在全屏模式下
      Begin
         dwStyle := WS_POPUP Or         // 没有边框
         WS_CLIPCHILDREN // 要让OpenGL正常运行,这两个属性是必须的。
         Or WS_CLIPSIBLINGS;            //他们阻止别的窗体在我们的窗体内/上绘图。
         dwExStyle := WS_EX_APPWINDOW;  // 窗体可见时处于最前面
         ShowCursor(False);             // 不显示鼠标
      End
   Else                                 //否则
      Begin
         dwStyle := WS_OVERLAPPEDWINDOW Or  //带标题栏、可变大小的边框、菜单和最大/小化按钮
         WS_CLIPCHILDREN Or // 要让OpenGL正常运行,这两个属性是必须的。
         WS_CLIPSIBLINGS;               //他们阻止别的窗体在我们的窗体内/上绘图。
         dwExStyle := WS_EX_APPWINDOW Or // 增强窗体的3D感观
         WS_EX_WINDOWEDGE;              // 边框为凸起
         ShowCursor(false);             // 不显示鼠标
      End;

   //创建一个窗体
   h_Wnd := CreateWindowEx(dwExStyle,   // 扩展窗体风格
      'OpenGL',                         // 类名
      WND_TITLE,                        // 标题
      dwStyle,                          // 窗体属性
      0, 0,                             // 窗体位置
      Width, Height,                    // 窗体大小
      0,                                // 没有父窗体
      0,                               

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

相关专题:
 
 网友评论:(评论内容只代表网友观点,与本站立场无关!)
GOOGLE广告

阅读排行

| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 |
中国教师站

中国教师站 版权所有 Copyright © 2006-2020 All Rights Reserved 站长:Sina & Siny
[备用域名:www.JXZYW.Com] 有事请留言有事请留言
【实力成就精品 诚信呵护品牌】

信息产业部备案
苏ICP备06018635号