Delphi7.0运行时全屏显示轮回显示图片 1.0 Delphi7.0运行时全屏幕
2.0 在创建窗体时的OnCreate事件时写入下列代码： BorderStyle := bsNone; WindowState := wsMaximized; 或者
BorderStyle := bsNone; Left := 0; Top := 0;
Width := Screen.Width; Height := Screen.Height; 或者
BorderStyle:=bsNone;
SetBounds(0,0,Screen.Width,Screen.Height); 以上三种是全屏幕运行时不出现系统的
最小化，最大化，
关闭按钮，如果要出现，BorderStyle := bsNone;不写
//不要保存上面的东西。自己在一个Form里加两个按钮分别指向一个
事
件
；加
一的
个
OpenDialog
，设置一下
，
将
OpenDialog Options
ofAllowMultiSelect := True;
先执行LoadImage1Click，将一些图片文件。。。。。
去试试。//
Delphi7.0 中随机从一个范围中取整数 在uses引用math，
使用随机函数时的代码如下：
randomize;//初始化内置的随机数生成器 edit1.Text:=inttostr(randomrange(1000,9999)); //randomrange（随机数起始范围，随机数结束范围） 也可以不用在uses中引用math直接写下列代码 form1.Label1.Caption:=inttostr(random(10));
执行后窗体名为form1的label1.caption 随机在0-10内变化； 新建一个工程，保存在里面放入一些图片使得该程序运行时能够全屏幕随机选择图片显示
添加一个Image1控件，在（Additional）中代码添加如下： procedure TForm1.FormCreate(Sender: TObject); begin
BorderStyle := bsNone; WindowState := wsMaximized; end;
procedure TForm1.Button1Click(Sender: TObject); begin
application.Terminate;
end;
procedure TForm1.Timer1Timer(Sender: TObject); var i:string; begin
i:=inttostr(random(7))+'.jpg'; form1.Label1.Caption:=i;
form1.Image1.Picture.LoadFromFile(i); end;
end.（以上也是时钟控件的巧用，每隔一定的时间产生一个随机数，随机显示一张图片。） 共有8张图片
下面讲述
Delphi引用计算机声音：
1：