?? unitprog.pas
字號:
unit UnitProg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Gauges, ExtCtrls;
type
TFormProgr = class(TForm)
Panel1: TPanel;
Gauge1: TGauge;
Label1: TLabel;
private
FProgress: Integer;
FMessage: String;
procedure SetProgress(const Value: Integer);
procedure SetMessage(const Value: String);
{ Private declarations }
public
Property Progress:Integer Read FProgress Write SetProgress;
Property Message:String Read FMessage Write SetMessage;
{ Public declarations }
end;
implementation
{$R *.DFM}
{ TFormProg }
procedure TFormProgr.SetMessage(const Value: String);
begin
FMessage := Value;
Label1.Caption:=Value;
end;
procedure TFormProgr.SetProgress(const Value: Integer);
begin
FProgress := Value;
Gauge1.Progress:=Value;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -