荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: georgehill (佐治·希尔【多情网虫无情网】), 信区: Program
标 题: 用Delphi制作欢迎屏幕
发信站: BBS 荔园晨风站 (Sun Mar 12 02:00:10 2000), 转信
用Delphi制作欢迎屏幕
（山东 许振华）
大家对WIN95的欢迎屏幕可能都很熟悉了，安装完毕后第一次启动WIN95时就会出
现欢迎屏幕，提供一些信息，而且很好的一个功能是提供了许多WIN95的使用技巧。如
果用户对WIN95熟悉了，就可以将“下次启动时显示此屏幕” 前的复选框不选择，那么
以后启动时就不再出现欢迎屏幕了，这种欢迎屏幕在其他一些软件中也有使用。本文给
出一种用Delphi实现的方法，你也可以在自己的程序中实现这种功能了。
这种欢迎屏幕应具有的特点是：1.每次启动时提示一条使用技巧，按“下一条”按
钮可显示下一条技巧，下次启动程序时显示的技巧应是本次最后显示技巧的下一条，这
样才能提供给用户新技巧而不是已看过的技巧。2.用户不想使用时欢迎屏幕要能关闭它
，以后需要使用时应能再恢复它。
第一步，制作欢迎屏幕中需要使用的技巧文件
这种文件一般采用文本文件，每条技巧占用一行，简明扼要，不宜太长。可用记事
簿等来编写，注意若一行写不下应由记事簿自动换行，不可用硬回车换行。对于如何让
程序知道下次是否出现欢迎屏幕，我们可采用一种简单的方法来实现：在技巧文件的第
一行写下标志TRUE或者FALSE，如果为TRUE说明欢迎屏幕是激活的，下面的程序注释将说
明如何切换状态。下面就开始制作欢迎程序，设计思路见程序详细注释。
第二步，制作程序的主界面
本文目的是做欢迎屏幕，所以本程序没任何实际功能，主要是为了给大家一个完整
的示例。在窗体FORM1中添加两个命令按钮：Button1、Button2，Caption属性分别为
“欢迎屏幕开关”、“退出”。在窗体的代码单元UNIT1中写如下代码：
在private部分添加如下语句：
Tips:TStringList;//用来读取技巧文件中的技巧
在窗体的onshow事件中写如下代码：
procedure TForm1.FormShow(Sender: TObject);
begin
Tips:=TStringList.Create;
//读取技巧文件中的技巧
Tips.LoadFromFile(`C:myprog ip.txt`);
//如果第一条技巧内容为TRUE,说明欢迎屏幕是处于激活状态，那么就显示欢迎屏
幕，
//并且将
if Tips[0]=`True`
then form2.showmodal;
end;
双击命令按钮Button1写如下代码：
procedure TForm1.Button1Click(Sender:TObject);
begin
//将欢迎屏幕显示出来，供用户选择下次是否出现欢迎屏幕
form2.show;
end;
双击命令按钮Button2写如下代码：
procedure TForm1.Button2Click(Sender: TObject);
begin
close; //关闭程序
end;
第三步，制作欢迎屏幕窗体。在窗体中放置一个面板Panel1，在面板中放置一个小
图片，比如一个灯泡或一个问号，在图片旁边放置一个标签Label1，标题为“你知道吗
？”，再在面板中标签Label1下方放置一个标签（名字TIP）用来显示技巧信息。在面
板的下方放置一个复选框，供用户选择是否在下次启动时使用欢迎屏幕，Caption属性
为“每次启动时显示此屏幕”，NAME属性：OnStartup。在窗体中再放置两个按钮，
name=Okbtn, caption=“ok”，name=Nextbtn, caption=“下一条技巧”。欢迎屏幕的
界面参见本文的附图。下面是程序代码 在private部分添加如下语句：
Tips: TStringList; //用来读取技巧文件中的技巧
“下一条技巧”按钮的事件代码：
procedure TForm2.NextBtnClick(Sender: TObject);
begin
//显示下一条技巧，循环显示
Tips.Move(1, Tips.Count － 1);
Tip.Caption := Tips[1];
end;
“OK”按钮的代码：
procedure TForm2.OKBtnClick(Sender: TObject);
begin
//如果复选框选中，那么将一条信息置为True，否则置为False
if OnStartup.Checked
then Tips[0] :=`True`
else Tips[0]:=`False`;//将下次要显示的技巧放在第二行（第一行为显示标志）
Tips.Move(1, Tips.Count － 1);
//保存当前的设置，下次有效
Tips.SaveToFile(`c:myprog ip.txt`);
Tips.Free;
Close;
end;
//欢迎窗体的ONSHOW代码：
procedure TForm2.FormShow(Sender: TObject);
begin
Tips := TStringList.Create;
Tips.LoadFromFile(`c:myprog ip.txt`);
//显示技巧，显示欢迎屏幕的设定标志
Tip.Caption := Tips[1];
if Tips[0]=`True`
then OnStartup.Checked := True
else OnStartup.Checked := False;
end;
第四步，保存和运行。运行此程序时，会有一个提示，大意是将UNIT2包含到UNIT1
中，选择YES，则会在UNIT1中的implementation部分自动添加代码uses Unit2; 如果没
有错误的话就会看到欢迎屏幕了，当然你的tip.txt文件的第一行最初必须是True，再
试一试其他的功能吧。
本程序在Delphi 3.0、WIN9X下调试通过。
--
那你可不可以教我，
有什么办法可以不去喜欢一个人呢？
-- Bye 赤明莉香 --
我是来自大富翁的小美！^_^
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.115]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店