OnChange

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие компонента TColorGrid OnChange";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Выберите кнопками мыши основной и фоновый цвет";

// Таблица цветов
clg=new TColorGrid(frm);
clg.GridOrdering=go8x2;
clg.SetBounds(10,10,frm.ClientWidth,stb.Top-20);
clg.OnChange=clg_Change;

// Метка основного цвета
lfc=new TLabel(frm);
lfc.Caption="Основной цвет:";
lfc.Left=clg.Left;
lfc.Top =clg.Top+clg.Height+10;

// Панель основного цвета
pfc=new TPanel(frm);
pfc.BorderStyle=bsSingle;
pfc.Left=clg.Left;
pfc.Top =lfc.Top+lfc.Height+5;
pfc.Width =clg.Width/2-8;
pfc.Height=clg.Height/2;
pfc.Color=clg.ForegroundColor;

// Метка фонового цвета
lbc=new TLabel(frm);
lbc.Caption="Фоновый цвет:";
lbc.Left=pfc.Left+pfc.Width+16;
lbc.Top =lfc.Top;

// Панель фонового цвета
pbc=new TPanel(frm);
pbc.BorderStyle=bsSingle;
pbc.SetBounds(lbc.Left,pfc.Top,pfc.Width,pfc.Height);
pbc.Color=clg.BackgroundColor;

// Подогнать размер формы под размер содержимого
frm.ClientWidth =clg.Left*2+clg.Width;
frm.ClientHeight=pfc.Top+pfc.Height+15+stb.Height;

clg.SetFocus();
frm.ShowModal();

// Обработчик события OnChange
function clg_Change(clg)
{
  pfc.Color=clg.ForegroundColor;
  pbc.Color=clg.BackgroundColor;
}