如何防止選擇組件TColorBox中的特定顏色？

Question

有誰知道如何從TColorBox的下拉列表中刪除某種顏色？

Answer 1

您需要從列表中刪除的顏色在：

procedure TForm7.FormCreate(Sender: TObject); 
var i: Integer; 
begin 
    i := ColorBox1.Items.IndexOf('clGreen'); 
    if i <> -1 then 
    ColorBox1.Items.Delete(i) 
    else 
    Showmessage('invalid color'); 
end; 

Answer 2

的預充的人可以從Items集合中刪除。例如：

procedure TForm31.Button1Click(Sender: TObject); 
var 
    Index: Integer; 
begin 
    Index := ColorBox1.Items.IndexOfObject(TObject(clGreen)); 
    if Index <> -1 then 
    ColorBox1.Items.Delete(Index); 
end; 

Answer 3

你的問題標題：

如何防止特定顏色的選擇中組件TColorBox？

所以防止不刪除，你有兩個選擇：

• 防止選擇：

  procedure TForm1.FormCreate(Sender: TObject); 
  begin 
      ColorBox1.ItemIndex := -1; 
  end; 
  
  procedure TForm1.ColorBox1Change(Sender: TObject); 
  begin 
  if ColorBox1.Colors[ColorBox1.ItemIndex] = clNavy then //Choose any color 
      begin 
      ShowMessage('Invalid color'); 
      ColorBox1.ItemIndex := -1; 
      end; 
  end; 
  

• 如果您需要刪除Color那麼你有兩個答案做那。