运行后效果图：（右下角的天下网吧字样是上传后自动加上的，程序中本身无此标志）

一、建立新工程，调整好窗口Form1的属性：

  调整好窗口的大小，适合自己的就感觉最好了。

  Position ： poScreenCenter  （启动时窗口位置为屏幕居中，这个属性建议以后每个程序都要设置成这样）

  BorderStyle : bsNone  (窗口样式为无窗口标题样式）

  Font :(窗口及窗口里所有控件的默认字体，不设置的话默认字体是英文的一种字体，看起来比较怪，这个属性建议以后每个程序都要设置成这样）

二、窗口属性设置好后，插入一个图像控件(在控件组的Additional页第六个控件，一个图形样的图标），设置它的属性

  Align ：alCenter （相对于控件所在容器-窗口的位置和大小为扩大到所有)

  strecth：true(设置这个后图像会自动填充到控件大小，你也可以不设置，效果不一样）

  picture：这个是image控件显示的图片，直接点选取你想显示的图片即可，建议不要做太大的图片，图片文件大小比较大的话，生成的exe文件会相应变大（现在的机器配置来看不会影响执行速度）

三、插入TRichEdit控件（控件组的win32页），设置好属性：

  调整好位置和大小，你觉得哪样好就摆哪。

   ReadOnly：TRUE 只读属性，设置为TRUE后，里面的内容都不可以被用户修改。

   Lines：清空里面的内容。让它默认是一片空白，无内容。

四、插入TSpeedButton按钮组件（控件组的Additional页，第二个），设置好它的属性：

  Caption ：‘退出’（标题属性）

  Glyph：选取一个退出样子的图片，如果你不想在按钮前面显示退出样子的图标就不用设置此属性。（只支持BMP，尽量选文件大小小一点的图片，好让生成的EXE文件不要太大）。

五、在窗口顶部放入一个TLabel控件，设置好它的属性：

 此控件就是显示一些文本，设置好它的字体就行了。随便你的喜好设置。

六、双击TSpeedButton,退出按钮，输入代码：

 Close ;

 此控件作用就是让用户点击退出此程序。

七、选择TForm1窗口组件，在属性的EVEnt页里的OnCreate后面（此事件是窗口创建时的事件，就是说在窗口创建时程序要做的事情）双击，输入代码：

  if FileExists('c:\1.rtf') then   //如果文件存在，可以使用网络路径，如 \\ok\公告\1.rtf
    redt1.Lines.LoadFromFile('c:\1.rtf')    //载入公告文件。可以使用网络路径，如 \\ok\公告\1.rtf，这样在服务器ok上，修改1.rtf即可立即更新公告了。
  else
    redt1.Lines.Add('本网吧暂无公告！') ;

OK,完成，F9运行即可看到效果，这里使用的是C:\1.rtf文件，请用写字板创建好此文件，里面内容就是你的公告内容。

源码下载：

网吧公告源码

下载免费游戏更新软件

相关文章

网管第八个程序（多线路切换器） 网管第六个程序（类资源管理器程序） 网管第五个程序（操作注册表） 网管的第四个程序（简单的QQ登录菜单） 网管第三个程序，操作ini文件 网管的第二个程序（调用外部程序） 网管第一个程序，显示‘我爱你，网吧’ 用dos批处理自制网吧公告牌