Die Schweizer haben eine MarqueeProgressbar von der normalen Progressbar abgeleitet:
http://www.swissdelphicenter.ch/de/showcode.php?id=1680

Ich frage mich nun, ob es nicht möglich wäre eine "normale" Progressbar zur Laufzeit zur MarqueeProgressbar zu machen?

Klar, setze die entsprechenden Stile einfach zur Laufzeit: PBS_MARQUEE und entsprechend dann die Animation: PBM_SETMARQUEE.

Also manchmal erstaunst du mich immer wieder. Du programmierst doch nicht erst seit gestern oder?

Zitat von Luckie:

Also manchmal erstaunst du mich immer wieder. Du programmierst doch nicht erst seit gestern oder?

Sicher, aber manchmal ist es spät, und manchmal sieht man den Wald vor Bäumen nicht

Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
   Bar: TProgressBar;
begin
Bar := ProgressBar1;

SetWindowLong(Bar.Handle, GWL_STYLE, GetWindowLong(Bar.Handle, GWL_STYLE) or PBS_MARQUEE) // Jetzt isses ne Marquee-Progresbar

end;



procedure TForm1.Button4Click(Sender: TObject); // hier verändern wir die Geschwindigkeit - je kleiner, desto langsamer
var
   AniSpeed: Cardinal;
   Bar: TProgressBar;
begin
   Bar := ProgressBar1;
   AniSpeed := strtoint (Edit1.Text);

   if AniSpeed <> 0 then
      SendMessage(Bar.Handle, PBM_SETMARQUEE, 1, AniSpeed)
   else
      SendMessage(Bar.Handle, PBM_SETMARQUEE, 0, 0);
end;

Den Code in Funktionen umzuformen, das überlass ich dir

Und L...war natürlich mal wieder schneller

So, jetzt hab ichs...

markieren

Delphi-Quellcode:

const
  PBS_MARQUEE = $08;
  PBM_SETMARQUEE = WM_USER + 10;
var
  cs:LongInt;
begin
  cs := GetWindowLong(ProgressBar1.Handle, GWL_STYLE);
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, cs Or PBS_MARQUEE);
  SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 40);
...

Aber das ganze funktioniert leider nur, wenn die unit XPMan engebunden wurde ... somit kann ich's nicht gebrauchen
Bekommt man den ProgressBar auch ohne XPMan in den Marquee-Style?

[Edit]
Ups... da war ja wieder einer schneller

Nein, das XPMan sagt Windows, dass du die neuen XP-Controls nutzen möchtest - und erst die Unterstützen das afaik

da müsstest du dann nach "XPManifest" suchen....

Hi kann mir jemand sagen warum Delphi 2007 PBS_MARQUEE nicht erkennt "[DCC Fehler] KyteUnit.pas(41): E2003 Undefinierter Bezeichner: 'PBS_MARQUEE'" ich habe auch das XPMan eingebunden . Was mache ich falsch???

Hast du vielleicht die Konstanten vergessen (siehe Beitrag #5)?

Die Delphi Units hinken immer etwas hinter her und kennen deshalb die Konstante nicht. Du musst sie also selber deklarieren.