أحتاج طريقة تغيير لون ال Progressbar

[Rever7eR]

بسم الله الرحمن الرحيم 
السلام عليكم و رحمة الله تعالى و بركاته


أحتاج custom progressbar , أريدها ان تكون Flat ان امكن 
و اريد تغيير اللون , هناك اخضر , اصفر و احمر ! لا اريد استعمال اي منها 

قمت بالبحث و وجدت طريقة باستعمال احد دوال الAPI و لم تنجح معي 

كود :

uses CommCtrl ProgressBar1.Brush.Color:= clSilver; SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlack);

لماذا لم يعمل معي الكود ؟
أنا اعمل على Rad Studio 10.2
تحياتي

[fouadhdfouad]

بسم الله الرحمن الرحيم 
السلام عليكم و رحمة الله تعالى و بركاته


أحتاج custom progressbar , أريدها ان تكون Flat ان امكن 
و اريد تغيير اللون , هناك اخضر , اصفر و احمر ! لا اريد استعمال اي منها 

قمت بالبحث و وجدت طريقة باستعمال احد دوال الAPI و لم تنجح معي 

كود :

uses CommCtrl ProgressBar1.Brush.Color:= clSilver; SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlack);

لماذا لم يعمل معي الكود ؟
أنا اعمل على Rad Studio 10.2
تحياتي

تفضل اخي 

PHP كود :

uses
  commctrl  ;
procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  progressbar1.StepIt;
   ProgressBar1.Brush.Color:= clBtnFace; // Set Background colour
   SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, (clfuchsia)); // Set bar colour
end;

end. 


[mohamed49]

كذلك لم تعمل معي delphi rio 10.3

---

جرب هذا

ProgressBar1.StepIt;
 SendMessage(ProgressBar1.Handle, 1040, 2, 0); // red
 SendMessage(ProgressBar1.Handle, 1040, 3, 0);   //yellow
 SendMessage(ProgressBar1.Handle, 1040, 1, 0);  //green