TAdvStringGrid(TMS), DirectEdit, goEditing +/-

[hoika]

Hallo #,

ich benutze obiges Grid.
DirectEdit ist True, d.h. klicke ich auf eine Zelle, kann ich direkt editieren.
Bestimmte Zellen sollen aber nicht editiert werden können.
Das mache ich über OnSelectCell und goEditing ausknippsen oder nicht.

Nu kommt es aber.
Das OnSelectCell kommt wohl zu spät.
Klicke ich auf eine Read-Only-Zelle,
danach auf eine Read-Write-Zelle, wird der Inplace-Editor nicht geffnet.
Erst bei nächsten Klick auf die gleiche Zelle.

Welches Ereignis sollte ich nehmen ?


Danke


Heiko

[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;