Progressbar színe
A birka komponens fejlesztők néha elcseszik a komponenset azzal, hogy kész színeket erőszakolnak rá az user-re. Ilyen a Progressbar kék felülete
procedure TForm1.Button1Click(Sender: TObject); const PBM_SETBARCOLOR = $0409; YourColor = clgreen; begin SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, YourColor); end;