3

コントロールにカスタム カラーを追加しようとしていTColorBoxます。コントロールをフォームに追加し、StyleプロパティcbCustomColorを True に設定しました。イベントにはOnGetColors、次のコードがあります。

procedure TfrmAbout.GetColors(Sender: TCustomColorBox; Items: TStrings);
begin
  ShowMessage('GetColors has been triggered');
  Items.AddObject('clWebSnow',TObject(clWebSnow));
  Items.AddObject('MyOrange',TObject(Rgb(255,128,0)));
end;

ドロップダウンにメッセージ ボックスや色が表示されません。これを機能させるために他に何かする必要がありますか？

4

2 に答える 2

5

代わりに独自のカスタム カラーを追加できるようにするにcbCustomColorsは、プロパティにオプションを含める必要があります。StyleこのcbCustomColorオプションにはアイテムのみが含まれており、カスタム カラーを選択できます。

于 2013-02-25T16:29:21.617 に答える
0

これを機能させるには、@Sertacの提案に従わなければなりませんでした。FormCreate で、TColorBox ごとに削除して[cbCustomColors]から追加するプロシージャを起動しました。

別の適切な回避策を見つけることができませんでした。または、GetColors が実行されるべきときに実行されなかった理由を突き止めることもできませんでした。

于 2013-03-16T05:49:50.347 に答える