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;