Z zxb0783 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-30 #1 怎样在案AdvStringGrid 第一字段加入CHECKBOX 并且第一个字段是活动的,即可选择的!!!! 谢谢
D deepblue_jn Unregistered / Unconfirmed GUEST, unregistred user! 2003-02-21 #4 procedure TForm1.FormCreate(Sender: TObject); begin AdvStringGrid1.AddCheckBox(1,1,true,false); end; procedure TForm1.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean); begin CanEdit := (ARow>0) and (ACol > 0 ) end;
procedure TForm1.FormCreate(Sender: TObject); begin AdvStringGrid1.AddCheckBox(1,1,true,false); end; procedure TForm1.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean); begin CanEdit := (ARow>0) and (ACol > 0 ) end;