Komponent ScrollBar

Navrhnime projekt, ktorý bude miešať farby a farbiť tak napr. farbu formuláru.

Do formuláru položte 3 komponenty ScrollBar z palety Standard

Zadefinujte novú metódu formuláru, napr. UpdateAll
 

procedure TForm1.UpdateAll; begin   Form1.Color:=RGB(ScrollBar1.Position,                    ScrollBar2.Position,                    ScrollBar3.Position);   Red.Caption:='Red='+IntToStr(ScrollBar1.Position);   Green.Caption:='Green='+IntToStr(ScrollBar2.Position);   Blue.Caption:='Blue='+IntToStr(ScrollBar3.Position); end;

V Objektovom inšpektore zadefinujme každému ScrollBaru udalosť OnChange
 

procedure TForm1.ScrollBar1Change(Sender: TObject); begin   UpdateAll; end;

Poznámka: zmeny každého ScrollBaru vyvolajú metódu UpdateAll.

! Vyskúšajte projekt.