TDBGrid: Read-Only-Feld

[hoika]

Hallo,

so die Lösung!
Man, war das ein Rumwürgen.
Aber vielleicht hat ja jemand ein ähnliches Problem.

PS:
Das das doppelter Code ist, ist klar.
War nur ein Beispiel-Projekt.


Heiko

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  cdAssistent.CreateDataSet;

  // geht natürlich auch Im Objekt-Inspector
  dbGridAssistenten.Options := dbGridAssistenten.Options-[dgEditing];
  dbGridAssistenten.Columns[0].ReadOnly := True;
end;

procedure TForm1.dbGridAssistentenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if dbGridAssistenten.SelectedField.FieldName='markiert' then
  begin
    dbGridAssistenten.Options := dbGridAssistenten.Options-[dgEditing];
  end
  else
  begin
    dbGridAssistenten.Options := dbGridAssistenten.Options+[dgEditing];
  end;
end;

procedure TForm1.dbGridAssistentenCellClick(Column: TColumn);
begin
  if dbGridAssistenten.SelectedField.FieldName='markiert' then
  begin
    dbGridAssistenten.Options := dbGridAssistenten.Options-[dgEditing];
  end
  else
  begin
    dbGridAssistenten.Options := dbGridAssistenten.Options+[dgEditing];
  end;
end;