[Help]Verschidene Label's via Progressbar einblenden.

[Gabberjool]

Hi all,

Hab hier mal ne frage ich probier verschidene labels via Progerssbar einbelnden zulassen.
Jedoch belndet der immer nur eins ein (b.z. das erste) was mach ich falsch...

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    RzBackground1: TRzBackground;
    Timer1: TTimer;
    cxHintStyleController1: TcxHintStyleController;
    dxSkinController1: TdxSkinController;
    Probar1: TcxProgressBar;
    RzBitBtn1: TRzBitBtn;
    RzLabel4: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel1: TRzLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{--------------------- ProgressBar ---------------------}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Probar1.Position := Probar1.Position +1;
Application.ProcessMessages;
  if probar1.Position = 10 then
  Begin
  RzLabel2.Visible := True;
    If Probar1.Position = 50 then
    Begin
    RzLabel3.Visible := True;
    If Probar1.Position = 100 then
      Begin
      RzLabel4.Visible := True;
      Timer1.Enabled := False;
      Probar1.Position := 100;
    end;
  end;
end;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

{----------------- ProgressBar End ---------------------}

Lieber Gruss gabba...

[cruiser]

Du schachtelst die Begin..end Blöcke. So kann auch immer nur eins durchgearbeitet werden.
Zudem würde ich das einblenden dahin packen, wo du ohnehin die Progressbar aktualisierst, auf diese Weise sparst du dir den hässlichen Umweg über den Timer

Edit: vergiss das durchgestrichene, aber lager es wenigstens aus dem Timer aus, da später sicher etwas anderes als der Timer die Progressbar steuert, oder?

[RWarnecke]

Ich würde das ganze besser über eine Case-Anweisung realisieren. Ist etwas übersichtlicher und ich mache keine Fehler mit den begin..end Blöcken beim Schachteln.

[Gabberjool]

Zitat:

Zitat von cruiser

Du schachtelst die Begin..end Blöcke. So kann auch immer nur eins durchgearbeitet werden.
Zudem würde ich das einblenden dahin packen, wo du ohnehin die Progressbar aktualisierst, auf diese Weise sparst du dir den hässlichen Umweg über den Timer

Edit: vergiss das durchgestrichene, aber lager es wenigstens aus dem Timer aus, da später sicher etwas anderes als der Timer die Progressbar steuert, oder?

jop das schon es soll ja eben die verschidenen prozess vorgänge anzegeien, war rein zum testen...

danke habs hingekrigt dank deiner Anweisung.

Zitat:

Zitat von RWarnecke

Ich würde das ganze besser über eine Case-Anweisung realisieren. Ist etwas übersichtlicher und ich mache keine Fehler mit den begin..end Blöcken beim Schachteln.

Werd ich mich mal einlesen...