Código Delphi [-]procedure X.XCANEDITCELL( Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean); begin inherited; CanEdit := Acol=4; end;
procedure X.XCANEDITCELL( Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean); begin inherited; CanEdit := Acol=4; end;