TOmFormProgress

Navigation:  Entwicklerhilfe > Pascal-Referenz

TOmFormProgress

Previous pageReturn to chapter overviewNext page

Pascal-Objekt TOmFormProgress

Formular mit Fortschrittsbalken

Syntax

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

Vorfahre

TForm

Eigenschaften

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

Methoden

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;

 

end.

Siehe auch

Pascal-Referenz