请教如何对AdvStringGrid的列下拉框赋值呢怎么解决
1个回答
2016-04-20 · 百度知道合伙人官方认证企业
兄弟连教育
兄弟连教育成立于2006年,11年来专注IT职业教育,是国内专业的IT技术培训学校。2016年成功挂牌新三板(股票代码:839467)市值过亿。开设专注程序员培训专注php、Java、UI、云计算、Python、HTML5、
向TA提问
关注
展开全部
------解决方案--------------------
GetEditorTyp事件是你每次点击单元格就触发一次,你怎么在外面赋值那,就算你赋值成功应该也没有吧
------解决方案--------------------
procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject;
ACol, ARow: Integer; var AEditor: TEditorType);
begin
if ACol =2 then
begin
aEditor := edComboList;
AdvStringGrid1.ClearComboString;
AdvStringGrid1.AddComboString('10CM');
AdvStringGrid1.AddComboString('20CM');
end;
end;
GetEditorTyp事件是你每次点击单元格就触发一次,你怎么在外面赋值那,就算你赋值成功应该也没有吧
------解决方案--------------------
procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject;
ACol, ARow: Integer; var AEditor: TEditorType);
begin
if ACol =2 then
begin
aEditor := edComboList;
AdvStringGrid1.ClearComboString;
AdvStringGrid1.AddComboString('10CM');
AdvStringGrid1.AddComboString('20CM');
end;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询