procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
combobox1.onchange(self);
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
combobox2.onchange(self);
end;procedure TForm1.ComboBox2Change(Sender: TObject);
begin
combobox2.items.BeginUpdate;
combobox2.clear
////加内容
combobox2.EndUpdate;
end;结果出来个很怪的问题,我的listview标题都没了,但我的listview 是vsReport的,最小话FORM1后再打开,就又有了,combobox2选一下也会出现,不知道怎么解决了,refresh也试过了,不行
begin
combobox1.onchange(self);
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
combobox2.onchange(self);
end;procedure TForm1.ComboBox2Change(Sender: TObject);
begin
combobox2.items.BeginUpdate;
combobox2.clear
////加内容
combobox2.EndUpdate;
end;结果出来个很怪的问题,我的listview标题都没了,但我的listview 是vsReport的,最小话FORM1后再打开,就又有了,combobox2选一下也会出现,不知道怎么解决了,refresh也试过了,不行
////加内容
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
listview1.items.BeginUpdate;
listview1.clear
////listview1加内容
clistview1.EndUpdate;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
listview1.items.BeginUpdate;
listview1.clear
////listview1加内容
listview1.EndUpdate;
end;