mess.pas

电子小说阅读器v2.68可用于阅读pdf.html等各种形式的文档

{
模块名称：进度信息

使用方法：1、初始化
		  (1)compper.Min := 0;
		  (2)compper.Max := 最大值;
		  (3)compper.Position := compper.Min;

		  2、显示进度信息
		  PanelMsgShow.Caption := '标题';
		  compper.Position := 当前值;
		  Show;
		  Update;

		  3、关闭
		  Close;

返回值：  无
}

unit Mess;

interface

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

type
  TFormMess = class(TForm)
    Panel: TPanel;
	PanelMsgShow: TPanel;
    CompPer: TProgressBar;

	procedure FormShow(Sender: TObject);

  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  FormMess: TFormMess;

implementation

uses Main;

{$R *.DFM}

procedure TFormMess.FormShow(Sender: TObject);
begin
	FormMess.Left := FormMain.Left + Trunc((FormMain.Width - FormMess.Width) / 2);
	FormMess.Top := FormMain.Top + Trunc((FormMain.Height - FormMess.Height) / 2);
end;

end.