＋设为首页 ＋添加到收藏夹
如题。
贴出程序来！
下面程序有问题
procedure TForm1.ComboBox14Change(Sender: TObject);
var
ss:string;
begin
if Uppercase(Trim(ComboBox14.Text)) = 新增 then
begin
ss:=InputBox(新增,名称：,);
ComboBox14.Items.Add(ss);
—————————————
end;
有下划线的语句本身又引起ComboBox14Change事件！！！
Style 属性设为 csDropDownList
在 OnSelect 事件中写你的新增代码
原因都已经分析了
循环触发onchange事件
解决办法可以考虑hiflower(花) 的
procedure TForm1.ComboBox14Change(Sender: TObject);
var
ss:string;
tmpevent:Tnotifyevent;
begin
if Uppercase(Trim(ComboBox14.Text)) = 新增 then
begin
ss:=InputBox(新增,名称：,);
tmpevent:=ComboBox4.OnChange;
ComboBox4.OnChange:=nil;
ComboBox14.Items.Add(ss);
combobox4.OnChange:=tmpevent;
end;
