Ja da steht dieser code:
Delphi-Quellcode:
uses
CommCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Set the Background color to teal
Progressbar1.Brush.Color := clTeal;
// Set bar color to yellow
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
end;
Aber was steckt hinter der Konstanten PBM_SETBARCOLOR?
Ich hatte bislang:
BAR_CONST = $0409;