{*******************************************************}
{                                                                                                }
{                      Delphi ESite : http://yckxzjj.vip.sina.com                 }
{                      KingLong Studio:刀剑如梦软件创作室                  }
{                  QQ：20775028  E-Mail : yckzxjj@vip.sina.com          }
{                 Copyright (c) 2003 KingLong Software Studio             }
{                                                                                                }
{*******************************************************}
unit UAddProgressbar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Menus;

type
  TAddProgressbarFrm = class(TForm)
    Status: TStatusBar;
    Button1: TButton;
    procedure StatusDrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FProgress: TProgressbar; //TProgressbar类型的变量
    FStatusDrawRect: TRect;  //记录要插入状态条的坐标范围
    procedure AddProgressToStatus;
  public
    { Public declarations }
  end;

var
  AddProgressbarFrm: TAddProgressbarFrm;

implementation

{$R *.dfm}

procedure TAddProgressbarFrm.StatusDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  {记录要实现状态条的坐标范围}
  FStatusDrawRect := Rect;
end;

procedure TAddProgressbarFrm.AddProgressToStatus;
var
  i,Count,StatusPanelWidth: Integer

[1] [2] 下一页

GOOGLE广告

相关文章

没有相关文章