Einzelnen Beitrag anzeigen

Jens01

Registriert seit: 14. Apr 2009
673 Beiträge
 
#2

AW: TAdvStringGrid(TMS), DirectEdit, goEditing +/-

  Alt 27. Mai 2011, 22:50
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;

Geändert von Jens01 (27. Mai 2011 um 22:55 Uhr)
  Mit Zitat antworten Zitat