OnGetColors 이벤트를 사용하여 TColorBox에 사용자 지정 Color를 추가하는 방법은 무엇입니까?

Question

TColorBox 구성 요소 인 OnGetColors 이벤트를 사용하고 있지만 이벤트 항목 매개 변수의 Items 속성을 사용하여 새 색상을 추가하는 방법을 알 수 없습니다.

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

Items 속성을 사용하여 TColorBox에 새 색상을 추가해야하는 방법은 무엇입니까?

Answer 1

당신은 항목의 AddObject 방법과 같이, 객체를 사용해야합니다

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