Home » Tipps & Tricks » Komponenten » TStringGrid » Schreibschutz bei bestimmten Zellen eines TStringgrid

Schreibschutz bei bestimmten Zellen eines TStringgrid

Über die Eigenschaft „Options“ eines TStringGrids kann gesteuert werden, ob die Zellen schreibgeschützt oder editierbar sein sollen. Sie können editiert werden, wenn der Menge der Wert „goEditing“ hinzugefügt wird.Das OnSelectCell-Ereignis wird ausgelöst, wenn eine Zelle markiert wird. Hier kann angesetzt werden, wenn nur bestimmte Zellen schreibgeschützt werden sollen.Die Zelle lässt sich über die Parameter ACol und ARow ermitteln. In dem Beispiel wird jede ungerade Spalte schreibgeschützt:

procedure TForm1.StringGrid1SelectCell(Sender: TObject;
  ACol, ARow: Integer; var CanSelect: Boolean);
begin  
  if Odd(ACol) then
    Stringgrid1.Options := Stringgrid1.Options - [goEditing]
  else
    Stringgrid1.Options := Stringgrid1.Options + [goEditing];
end;

Bis Delphi 3 hießen die Parameter ACol und ARow noch Col bzw. Row.