请问怎么屏蔽ComboBox中的选项，等待。

[sfxllj]

在ComboBox中怎么让他的个别选项变灰，即不可选？谢谢赐教！

[智商无下限]

上面的方法好像只是变灰了但还是可以选择的吧。
建议既然你不让用户选了为什么不暂时把他删掉哪？用的时候在加回去！

[qwertyasd]

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex=1 then ComboBox1.ItemIndex:=-1;
end;

[gongzhijia]

up

[u2m]

把 CommoBox.Style:=csOwnerDrawVariable或者csOwnerDrawFixed
然后在ComboBox1DrawItem事件中做判断和绘图
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
rt: TRect;
begin
with ComboBox1.Canvas do
begin
rt := Rect;
Brush.Color := clBtnFace;
FillRect(rt);
//if 做判断哪个要变灰 then
Font.Color := clGrayText;
DrawText(Handle, PChar(ComboBox1.Items.Strings[0]),
-1, rt, DT_CENTER or DT_VCENTER or DT_BOTTOM);
end;
end;

[dht2003]

up