状态条插入可视控件

• 
  首先,在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.

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 状态条插入可视控件 相关文章：
• ·状态条插入可视控件
• 状态条插入可视控件 相关软件

上一篇:制作可移动的窗体的MovePanel控件

下一篇:自定义错误捕捉信息

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐