ProgressBar Status hin/her bewegen ???

[Jarmen_Kell]

Zitat von MrKnogge:

Wenn ich mich richtig erinnere, aber nicht im XP-Stil.

Korrekt.
Kann man aber versuchen durch die Farbwahl etc. zu simulieren

[CoRe.eXtreem]

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

[christian.noeding]

Zitat von MrKnogge:

Was meinst du mit "in eine *.pas-file schreiben" ?
Obiger Code ist die komplette *pas-file.

Welches OS hast du ?

gruss

Ja, ich weiß ich habe den gesamten Code 1:1 in eine pas-File geschrieben und dann versucht diese Pas-File als Komponente zu registrieren. Meines Wissens sollte sich nach Re-Kompilierung der Benutzerdatenbank von Delphi eine neue Komponente (eben diese TMarqueenBar) erstellt werden, die ich dann einfach auf meine Oberfläche ziehen kann.

Allerdings stürtzt mir Delphi beim Kompilieren mit einer Zugriffsverletzung an Adresse (die hab ich jetzt nicht parat) ab.

Woran kann das liegen??

Falls es von Belang ist: ich nutze WindowsXP Pro SP2 und Delphi 7 Pro


@CoRe.eXtreem:
du hast ja auch nicht versucht sie als Komponente einzutragen, sondern versucht direkt aus dem Code eine neue ProgressBar abzuleiten, was ja auch funktionieren müsste...

[MrKnogge]

MProgressBar sollte auch vom Typ TMarqueeProgressBar sein

[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;

[MrKnogge]

natürlich kann man das zu den komponenten hinzufügen, dafür ist es eigentlich gedacht.
(siehe procedure register)

gruss

[CoRe.eXtreem]

Gut zu wissen habe mich sowieso schon gefragt wozu "procedure register" da ist.

Schönen Abend und noch mal besten Dank @MrKnogge,

CoRe.eXtreem

[christian.noeding]

ömm, ja und wo liegt mein Fehler? DElphi kommt doch mit irgendwas aus der Source nicht klar? Hat denn einer von euch die Komponente richtig registrieren können?

Ich werde aber mal die Progressbar in meinem Sourcecode per Hand einfügen, dann läuft sie ja, aber sie aus der Komponentenleiste aufs Form zu ziehen ist einfacher *lach*

wäre schön, wenn mir jemand sagen könnte, was ich falsch mache; ist der Fehler vielleicht bei einem anderen noch aufgetreten?


bis denn,
Christian