Jak mogę dodać niestandardowy kolor do TColorBox za pomocą zdarzenia OnGetColors?

Question

Używam zdarzenie OnGetColors składnika , ale nie mogę dowiedzieć się, jak dodać nowe kolory za pomocą właściwości Items parametru elementu zdarzenia.

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

Jak mogę dodać nowe kolory do TColorBox za pomocą właściwości Items?

Answer 1

trzeba użyć metody z elementów obiektów, tak jak poniżej:

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