mplayer.ico

《Delphi开发人员指南》配书原码

unit Status;

interface

uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  ExtCtrls;

type
  TStatusBox = class(TForm)
    StatusPanel: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StatusBox: TStatusBox;

implementation

{$R *.DFM}

begin
  { Since the status box is displayed before the main screen is created,
    the status box must be created before the main screen. }
  StatusBox := TStatusBox.Create(Application);
  StatusBox.Show;
  StatusBox.StatusPanel.Caption := 'One Moment Please';
  Application.ProcessMessages;
end.