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);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_mess: Tf_mess;

implementation

uses main;

{$R *.DFM}

procedure Tf_mess.FormShow(Sender: TObject);
begin
  ShowMess.Left:=trunc((Panel.Width-ShowMess.Width)/2);
  f_mess.Left:=f_main.Left+trunc((f_main.Width-f_mess.Width)/2);
  f_mess.Top:=f_main.Top+trunc((f_main.Height-f_mess.Height)/2);
end;

procedure Tf_mess.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  f_main.Show;
end;

end.