ProgressBar Status hin/her bewegen ???

[CoRe.eXtreem]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  MProgressBar: TMarqueeProgressBar;
begin
  MProgressBar:=Unit2.TMarqueeProgressBar.Create(Self);
  with MProgressBar do
    begin
      Parent:=Form1;
      Name:='MProgressBar';
      Left:=100;
      Top:=100;
    end;
end;

Gut soweit funktioniert es schonmal.
Die ProgressBar ist erstellt und die 4 Balken zeigt es auch schon an.
Sie können sich aber noch nicht bewegen da Activat sich nicht ansteuern lässt.
@christian.noeding machst du nicht irgendetwas falsch. Man kann das doch nicht zu den Komponenten hinzufügen.

gruß, Core

///
Edit:

Es funktioniert!! THX

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  MProgressBar: TMarqueeProgressBar;
begin
  MProgressBar:=Unit2.TMarqueeProgressBar.Create(Self);
  with MProgressBar do
    begin
      Parent:=Form1;
      Name:='MProgressBar';
      Left:=100;
      Top:=100;
      Active:=true;
    end;
end;