计算机二级DELPHI控件:状态条插入可视控件计算机二级考试

文章作者 100test 发表时间 2009:04:30 03:54:19
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　在FROM中放置一个状态条控件Status。调节Status.Panels，在其中插入3个状态条嵌板。把第二个嵌板的参数Style设置成psOwnerDraw。这一点很重要，如果没有这样做，将永远无法显示文字以外的东西。然后在状态条的OnDrawPanel事件中插入一行StatusDrawRect:=rect.以记录参数Style设置成psOwnerDraw的嵌板的坐标。
　　第二步，在FROM的Private中申明一个TProgressBar类型的变量Progress。然后在一个菜单的消息响应过程中调用Create方法把它建立起来，再设定状态条为该进程条的父窗口，进而设定进程条的一些必要参数。例如：最大值、最小值、原点坐标、高度和宽度等。
　　最后编译一下该程序，你就会发现在状态条中被插入了一个运动着的进程条。
　　类似地，你还可以在状态条中插入其他可视控件，如：按键、位图和动画控件等等。
　　以下是范例程序：
　　type
　　TForm1 = class(Tform)//定义一个窗口类
　　Status: TStatusBar.
　　MainMenu1: TMainMenu.
　　file1: TMenuItem.
　　insertprocressbar1: TMenuItem.
　　N1: TMenuItem.
　　exit1: TMenuItem.
　　procedure FormCreate(Sender: Tobject).
　　procedure StatusDrawPanel(StatusBar: TStatusBar. Panel:
　　TStatusPanel.const Rect: Trect).
　　procedure FormDestroy(Sender: Tobject).
　　procedure exit1Click(Sender: Tobject).
　　procedure insertprocressbar1Click(Sender: Tobject).
　　private
　　colorindex : integer. BookOpen:Boolean.
　　ssbmp:Tbitmap. progress:Tprogressbar.
　　StatusDrawRect:Trect. //记录要插入状态条特技的坐标范围
　　public
　　{ Public declarations }
　　end.
　　var
　　Form1: TForm1.
　　implementation
　　{$R *.DFM}
　　procedure TForm1.FormCreate(Sender: Tobject).
　　begin
　　end.
　　procedure TForm1.StatusDrawPanel(StatusBar: TStatusBar.
　　Panel: TStatusPanel. const Rect: Trect).
　　begin
　　StatusDrawRect:=rect. //记录要实现状态条特技的坐标范围
　　end.
　　procedure TForm1.exit1Click(Sender: Tobject).
　　begin
　　close.
　　end.
　　procedure TForm1.insertprocressbar1Click(Sender: Tobject).
　　var I,count:integer.
　　staPanleWidth:integer.<. begin
　　progress:=Tprogressbar.create(form1).
　　count:=3000. //进程条的最大值
　　staPanleWidth:=status.Panels.Items[2].width.
　　//由于进程条的很宽，所以需要改变状态条嵌板的宽度，这里先保存它的宽度。
　　Status.Panels.Items[2].width:=150. // 改变宽度
　　status.repaint.
　　with progress do
　　begin
　　top:=StatusDrawRect.top.
　　left:=StatusDrawRect.left.
　　width:=StatusDrawRect.right-StatusDrawRect.left.
　　height:=StatusDrawRect.bottom-StatusDrawRect.top.
　　//设定进程条的宽度和高度
　　visible:=true.
　　try
　　Parent := status. //该进程条的拥有者为状态条status
　　Min := 0. Max := Count. //进程条的最大和最小值
　　Step := 1. //进程条的步长
　　for I := 1 to Count do
　　Stepit. // 累加进程条
　　ShowMessage(现在，进程条将要从内存中被释放).
　　finally
　　Free. //释放进程条
　　end. //try
　　end. //with
　　status.Panels.Items[2].width:=staPanleWidth. //恢复状态条嵌板的宽度
　　end. //begin
　　end.

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总