TAdvStringGrid(TMS), DirectEdit, goEditing +/-

[Jens01]

Ich bin nicht ganz dahintergestiegen, was Du genau willst.
Aber so setzt man einzelne Zellen auf readonly

Delphi-Quellcode:

procedure TForm1.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean); 
begin 
  CanEdit := not (ACol in [2,4]); 
end;

So die Inplace-EDitoren:

Delphi-Quellcode:

procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); 
begin 
  case ACol of 
  1: AEditor := edNumeric; 
  2: AEditor := edComboEdit; 
  3: AEditor := edSpinEdit; 
  4: AEditor := edRichEdit;
  end;
end;