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.
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.