Come posso aggiungere un colore personalizzato a un TColorBox utilizzando l'evento OnGetColors?

Question

Sto utilizzando l'evento OnGetColors del componente TColorBox, ma non riesco a capire come aggiungere nuovi colori utilizzando la proprietà Items del parametro item dell'evento.

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

Come devo aggiungere nuovi colori a TColorBox utilizzando la proprietà Items?

Answer 1

è necessario utilizzare il metodo delle Elementi oggetto, in questo modo:

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