|
...die Farbe einer TProgressbar ändern?
|
| Autor:
MrBaseball34 |
| [ Tip ausdrucken ] | | |
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;
|
Bewerten Sie diesen Tipp:
|
|
|
