问答题X 纠错
类是对象的抽象及描述,它是具有统一属性和方法的一类对象的统一描述体,是用来定义某类对象共有属性和方法的模板。而对象是类的实例。
在Delphi环境中,组件板上的组件就是类的概念,例如按钮组件就是按钮类。而用户在窗体上创建的一个按钮就是对象的概念(按钮对象)。用户可以在窗体上用按钮类创建若干个按钮对象,它们都是按钮类的实例。
你可能喜欢
问答题
填空题
利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件,并在播放时有播放进度提示(如图)。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件(“打开文件”-Button1,“退出”-Button2),1个时钟组件Timer1和1个OpenDialog组件OpenDialog1,一个gauge组件(用作播放进度显示)。进度提示条每隔0.1秒更新一次进度。将程序补充完整。
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute Then Begin
MediaPlayer1.filename := OpenDialog1. (①) ;
Label1.(②) := OpenDialog1.filename;
MediaPlayer1.open; //打开声音文件
MediaPlayer1. (③) ; //开始播放
Timer1.enabled := (④) ;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := (⑤) ; //每隔0.1秒更新一次进度
gauge1.maxvalue := MediaPlayer1.length;
gauge1. (⑥) := MediaPlayer1.Position; //更改进度
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
填空题
在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画3个文本框,名称分别为Text1、Text2和Text3;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”、“=”符;再建立一个含有4个单选按纽的RadioGroup组件,名称为RadioGroup 1,标题分别为“+”、“-”、“*”和“/”。程序运行后,在Text1、Text2中输入两个整数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Text3,程序运行情况如图所示。请填入适当的内容,将程序补充完整。
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2,y :Integer; begin
x1 := StrToInt(Edit1.(①));
x2 := StrToInt(Edit2.(②));
Case (③).ItemIndex of
0: y := x1 + x2 ;
1: y := x1 - x2;
2: y := x1 * x2;
3: y := x1 Div x2;
End;
Edit3. (④) := IntToStr(⑤);
end;