Also irgendwie bekomme ich das auch nicht gebacken!
Habe den Code in Unit2.pas geschrieben. Benutze es aus Unit1
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
MProgressBar: TProgressBar;
begin
MProgressBar:=Unit2.TMarqueeProgressBar.Create(Self);
with MProgressBar do
begin
Parent:=Form1;
Name:='MProgressBar';
Left:=100;
Top:=100;
end;
end;
Active und AnimationSpeed funktionieren nicht anzusprechen.
Delphi-Quellcode:
published
property Active: Boolean read FActive write SetActive;
property AnimationSpeed: Integer read FAnimationSpeed write SetAnimationSpeed;
Irgendwas mache ich falsch.
Gruß, Core