Problem mit eigene ProgressBar mit Marqueen

**NickelM**

Hallo Leute

Habe mir gedacht ich schreibe mal eine TProgressBarEx mit dem Laufbalken Eigenschaft(siehe Bild)

Läuft auch alles Super, ich will aber, dass man zur laufzeit naürlich wenn mann wieder syNormal (Typ-Eigenschaft) setzt wieder normal wird.

Ich habe nur keine Blasen schiemer wie, da ich eigentlich net wirklich viel mit Win-API zutunhabe

hier der aufruf code dafür, denn ich vom forum habe.

zusammenfalten · markieren

Delphi-Quellcode:

			const

  PBS_MARQUEE  = $08;

  PBM_SETMARQUEE = WM_USER + 10;

var

  cs:LongInt;

begin

If not (csDesigning in ComponentState) and (Value = syLaufbalken) then

begin

  cs := GetWindowLong(Self.Handle, GWL_STYLE);

  SetWindowLong(Self.Handle, GWL_STYLE, cs Or PBS_MARQUEE);

  SendMessage(Self.Handle, PBM_SETMARQUEE, 1, FInterval); //FInterval ist die Geschwindigkeit habe ich festgestellt

  Self.DoubleBuffered := True;

end;

Habe es schon mit Wm_User für PBM_SETMARQUEE bei SendMessage versucht. Geschit nichts.
Wäre dankbar für eure Hilfe.

Problem mit eigene ProgressBar mit Marqueen

Problem mit eigene ProgressBar mit Marqueen

Forumregeln