Thema: Delphi Progressbar endlos!

Einzelnen Beitrag anzeigen

ColdFire

Registriert seit: 20. Mai 2003
63 Beiträge
 
Delphi 7 Professional
 
#3

Re: Progressbar endlos!

  Alt 18. Jun 2007, 10:05
Hi !

Danke für die rasche Antwort...
Habe mir soeben diese Funktion angesehen: http://www.swissdelphicenter.ch/de/showcode.php?id=1680

Ich werde aber nicht schlau draus!

Kann mir jemand ein anders beispiel zeigen ?

lg CF

***EDIT***

habe mich für diese lösung entschien wobei diese funktion in jeder repeat aufgerufen wird und somit jedesmal weiter läuft.
Delphi-Quellcode:
const
  PBS_MARQUEE = $08;
  PBM_SETMARQUEE = WM_USER + 10;

    var
      Bar: TProgressBar;
    begin
      Bar := PBMarquee;
      SetWindowLong(Bar.Handle, GWL_STYLE, GetWindowLong(Bar.Handle, GWL_STYLE) or PBS_MARQUEE) // Marquee-Progresbar
    end;
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]
thx
  Mit Zitat antworten Zitat