Delphi7.0资料

Delphi7.0运行时全屏显示轮回显示图片

1.0D elphi7.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直接写下列代码

bel1.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';

bel1.Caption:=i;

form1.Image1.Picture.LoadFromFile(i);

end;

end.（以上也是时钟控件的巧用，每隔一定的时间产生一个随机数，随机显示一张图片。）

共有8张图片

下面讲述Delphi引用计算机声音：

1：

点击Button1时弹出以上对话框并带提示音

procedure TForm1.Button1Click(Sender: TObject);

begin

messagebox(handle,'添加成功','信息（i）',64);

end;

2：

点击Button1时弹出以上对话框并带提示音

可以用以下的程序：

procedure TForm1.Button1Click(Sender: TObject);

begin

messagebox(handle,'lpt1错误','错误',mb_iconExclamation);

end;

或者

procedure TForm1.Button1Click(Sender: TObject); begin

messagebox(handle,'lpt1错误','错误',mb_iconwarning);

end;

3：

点击Button1时弹出以上对话框并带提示音

对话框是双向选择

以下是程序form1是主程序，再新建一个form2在unit1中 File-→use unit →unit2

在Button1.click事件中写入以下程序：

procedure TForm1.Button1Click(Sender: TObject);

begin

if messagedlg('是否要把用户写入库中',mtconfirmation,[mbyes,mbno],0)=mryes

then

begin

messagebox(handle,'添加成功','信息（i）',64);

form2.Show;

end;

end;

该程序的意思是弹出双向选择的对话框中如果点击yes则弹出添加成功对话框，点击确定后form2显示，如果点击no则不作出任何反应

说明：除了问号提示符没有声音提示，其他的符号都有提示音的伴随符号而改变的

以下的程序类似可以尝试：

procedure TForm1.Button1Click(Sender: TObject);

begin

messagebox(handle,'添加成功','提示',64);

end;