Pascal-Objekt TOmFormProgress

Formular mit Fortschrittsbalken

Syntax

MyProgressForm := TOmFormProgress.Create(Application.MainForm);

TForm

BtnCancel	TButton	Read	Schalter "Abbrechen"
Canceled	Boolean	Read	Wird bei Benutzerabbruch true
LabelBottom	TLabel	Read
LabelTop	TLabel	Read
Max	Integer	Read, Write	Maximale Position
Pos	Integer	Read, Write	Position des Fortschritts

constructor Create(Owner: TComponent)	Objektinstanz erzeugen
procedure Step(StepBy: integer)	Position im Fortschrittsbalken um StepBy bewegen

Beschreibung

Blendet ein Fenster mit Beschriftungen und einem Fortschrittsbalken ein. Der Fortschritt wird auch im Office Manager-Taskbar-Icon gezeigt.

Beispiel

unit MyProgressTest;

interface

implementation

procedure Main;

var LProgress: TOmFormProgress;

i: integer;

begin

LProgress := TOmFormProgress.Create(Application.MainForm);

try

LProgress.LabelTop.Caption := 'OM-Pascal-Test';

LProgress.LabelTop.Visible := true;

LProgress.BtnCancel.Visible := true;

LProgress.Show;

LProgress.Max := 100;

LProgress.Pos := 0;

for i:=1 to 50 do begin

LProgress.Step(2);

sleep(40);

if LProgress.Canceled then

break;

end;

LProgress.Close;

finally

LProgress.Free;

end;

end.

Siehe auch