2012-01-17 6 views
7

TColorBoxコンポーネントのOnGetColorsイベントを使用していますが、イベントのアイテムパラメータのItemsプロパティを使用して新しい色を追加する方法を理解できません。OnGetColorsイベントを使用してカスタムカラーをTColorBoxに追加する方法はありますか?

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

Itemsプロパティを使用して新しい色をTColorBoxに追加する必要がありますか?

答えて

8

あなたはアイテムの方法はそうと同じように、オブジェクトを使用する必要があります。

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

その制御の設計者が醜いどのような選択肢。 TColorItemsリストタイプを作成して、 'items.AddColor( 'color name'、value:TColor) –

関連する問題