AdvStringGrid1 编辑设置 各位大侠 请问我如何将AdvStringGrid1 第一列设置可编辑(好录入数据) 第二列不可编辑谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 没有用过这个控件,楼主可以看看控件自带的demo,那里面应该有详细的介绍! procedure Tb1.AdvStringGrid1IsFixedCell(Sender: TObject; ARow, ACol: Integer; var IsFixed: Boolean);beginif arow=3 then isfixed:=true;end; procedure TForm1.advstrngrd1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean);begin if ACol = 1 then CanEdit := True else CanEdit := false;end; procedure TForm1.advstrngrd1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean);begin CanEdit := (ACol <> 0) and (ACol <> 2) and (ACol <> 5);end;第0、2、5列都不可编辑 斑竹进来! 高手救命 关于串口通信的问题 新手求助!~ 调查一下,大家都用什么工具进行delphi的单元测试(白盒测试) 请教高手!电子白板是怎么实现的~ 怎样将粘贴板的图导入TBitmap中? 已知两个经纬度,求之间的距离 高手们,请问不用任何控件,如何在菜单上加入背景图,请提供详细的实现代码。 难题求解,急!!! 打印 用adoquery批量插入access的问题? 按钮组件创建问题????????
ACol: Integer; var IsFixed: Boolean);
begin
if arow=3 then isfixed:=true;
end;
procedure TForm1.advstrngrd1CanEditCell(Sender: TObject; ARow,
ACol: Integer; var CanEdit: Boolean);
begin
if ACol = 1 then
CanEdit := True
else
CanEdit := false;
end;
ACol: Integer; var CanEdit: Boolean);
begin
CanEdit := (ACol <> 0)
and (ACol <> 2)
and (ACol <> 5);
end;
第0、2、5列都不可编辑