Изменение скроллерами цвета окна на Делфи

[Эверин]

Такое задание:
нужно написать программу, которая бы изменяла цвет в окошке при помощи скроллеров (rgb). Знаю, что есть какая-то программа, но не могу найти, а в программировании полный нуб. Помогите, пожалуйста. Программа на Делфи.

[VIK_aka_TOR]

клик
там даже пример по твоей теме

[Эверин]

Спасибо! я не сильно обнаглею,если попрошу вариант кода без формы, если это, конечно, возможно? (если что-напоминаю, что я нуб)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    ScrollBar3: TScrollBar;
    procedure ScrollBar1Change(Sender: TObject);
    procedure ScrollBar2Change(Sender: TObject);
    procedure ScrollBar3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Form1.color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Form1.color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Form1.color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
end;
end.

получилось вот что. не работает, после того, как добавила во второй скроллер, пытаюсь понять, в чем дело, но пока безуспешно(

Простите, нашла ошибку) по глупости напечатала везде единицу, а про два и три забыла))

[VIK_aka_TOR]

попробуйте добавить Form1.refresh; после каждого изменения цвета формы. значения изменяются вами, но на перерисовку получается нужно вручную отправлять.
p.s.

Давайте расположим на нашей форме 3 компонента ScrollBar как показано на рисунке. Свойства Min будут равны 0, а Max - 255, position - 0.

[Эверин]

есть проблема-все должно быть без форм, а через create window((
а так работает идеально.

[VIK_aka_TOR]

Сообщение от Эверин

есть проблема-все должно быть без форм, а через create window((
а так работает идеально.

но Create вы делаете какой-то формы, вот через ее имя и обращайтесь, а не через Form1

[phomm]

Гуглим сперва "минимальное приложение WinAPI на дельфи"
Там создание окна будет, потом ищем как в винапи создать скролбар.
Привязывать изменение скролбара к цвету окна - гуглить "винапи смена цвета окна"