Làm cách nào để thêm Màu tùy chỉnh vào TColorBox bằng sự kiện OnGetColors?

Question

Tôi đang sử dụng sự kiện OnGetColors của thành phần TColorBox, nhưng tôi không thể tìm ra cách thêm màu mới bằng cách sử dụng thuộc tính Mục của thông số mặt hàng của Sự kiện.

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

Tôi phải thêm màu mới vào TColorBox bằng cách sử dụng Thuộc tính mục?

Answer 1

bạn phải sử dụng phương pháp của Items phản đối, như vậy:

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