bottleclient/ProgressWindow.pas

   1 unit ProgressWindow;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls;
   8
   9 type
  10   TfrmProgressWindow = class(TForm)
  11     lblContent: TLabel;
  12   private
  13     function GetStatusText: String;
  14     procedure SetStatusText(const Value: String);
  15     { Private \90é\8c¾ }
  16   public
  17     { Public \90é\8c¾ }
  18     property StatusText: String read GetStatusText write SetStatusText;
  19   end;
  20
  21 var
  22   frmProgressWindow: TfrmProgressWindow;
  23
  24 implementation
  25
  26 {$R *.dfm}
  27
  28 { TfrmProgressWindow }
  29
  30 function TfrmProgressWindow.GetStatusText: String;
  31 begin
  32   Result := lblContent.Caption;
  33 end;
  34
  35 procedure TfrmProgressWindow.SetStatusText(const Value: String);
  36 begin
  37   if Value <> lblContent.Caption then
  38     lblContent.Caption := Value;
  39   Refresh;
  40 end;
  41
  42 end.