mit Hilfe von SwissDelphiCenter bin ich nun auf folgenden Code bekommen
Delphi-Quellcode:
frmMain.pbLeft.Brush.color := clTeal;
SendMessage(frmMain.pbLeft.Handle, PBM_SETBARCOLOR, 0, clblue);
frmMain.pbRight.Brush.color := clTeal;
SendMessage(frmMain.pbRight.Handle, PBM_SETBARCOLOR, 0, clblue);
Allerdings scheint der auch nicht wirklich zu funtkionieren?!