Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jfheins,
8. Mär 2008
Also bei mir funktioniert der Code wunderbar ... :gruebel:
Ich würde jetzt fast sagen, der Fehler muss woanders liegen :mrgreen:
procedure TForm1.FormCreate(Sender: TObject);
const
PBS_MARQUEE = $08;
PBM_SETMARQUEE = WM_USER + 10;
var
cs:LongInt;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jfheins,
21. Aug 2005
Nein, das XPMan sagt Windows, dass du die neuen XP-Controls nutzen möchtest - und erst die Unterstützen das afaik ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jfheins,
21. Aug 2005
Beispiel: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;