DruckenMister WongFacebook

Schreibschutz bei bestimmten Zellen eines TStringgrid

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Ü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.