如果combobox1选择了相同itemindex，怎么让它不激发onclick事件!

[shehyde]

如果combobox内容：
内宾 itemindex

我 0
你 1
他 2

如当前combobox1.itemindex:=1;
当用户再combobox1中再次选择了“你” 也就是combobox1.itemindex的值不变，
怎么控制combobox1不激发onnclick事件呢？

[princesd]

激发OnChange事件,你要做操作的话最好在这里面来做哦

[shehyde]

我的意思是如果选择了相同的内容，则不执行onchange或onclick的事件。

[princesd]

变通才是硬道理,呵呵!

[jian23cn]

楼主如果真的不想让程序触发Onclikc事件可以用一个全局Boolean变量放在Onclikc事件的开头，并设置一个值判断是否继续执行，例如：
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if x=False then Exit; //x为全局Boolean型变量
…………//做你原来的事情
end;

[shehyde]

有没有栏截事件， 我不想用牺牲内存的方法（定义私有变量）来处理！

[luke5678]

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

[ztenv]

onchange是最棒的，

[shehyde]

有没有知道？

[merkey2002]

这样做：定义一个集合,具体看代码

implementation
type tint=set of 0..2;
var t1:tint;

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
var j:integer;
begin
j:=combobox1.ItemIndex;
if not(j in t1) then
begin
showmessage('yes');
t1:=t1+[j];
end;
end;