OnGetColors olayını kullanarak bir TColorBox'a nasıl özel bir Renk ekleyebilirim?

Question

TColorBox bileşeninin OnGetColors olayını kullanıyorum, ancak olayın öğe parametresinin Items özelliğini kullanarak yeni renklerin nasıl ekleneceğini anlayamıyorum.

procedure (Sender: TCustomColorBox; Items: TStrings) of object; 

Öğeler özelliğini kullanarak TColorBox'a nasıl yeni renkler eklemeliyim?

Answer 1

Eğer Öğeler yöntem şöyle itiraz kullanmalıdır:

procedure TForm1.ColorBox1GetColors(Sender: TCustomColorBox; Items: TStrings); 
begin 
    Items.AddObject('clWebSnow',TObject(clWebSnow)); 
end;