传真(Fax)编程

开发平台：

Delphi

mess.pas：源码内容

							unit mess;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls;
type
  Tf_mess = class(TForm)
    Panel: TPanel;
    ShowMess: TLabel;
    compper: TProgressBar;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  f_mess: Tf_mess;
implementation
uses Faxconv;
{$R *.DFM}
procedure Tf_mess.FormShow(Sender: TObject);
begin
 // ShowMess.Left:=trunc((Panel.Width-ShowMess.Width)/2);
  //f_mess.Left:=FaxConversionForm.Left+trunc((FaxConversionForm.Width-f_mess.Width)/2);
 // f_mess.Top:=FaxConversionForm.Top+trunc((FaxConversionForm.Height-f_mess.Height)/2);
end;
end.

						