mess.pas

来自「将图像转换为传真文件」· PAS 代码 · 共 40 行

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.