Zitat von
Peter Lustig:
Du könntest es so machen:
Delphi-Quellcode:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
const erlaubt = [2,3];
begin
if not (ACol in Erlaubt) THEN CanSelect:=False;
end;
Dann kann der Benutzer nur die Spalten 2 und 3 auswählen!
MfG,
Peter
Hallo,
die Lösung find ich nicht ganz so gut. Grund: wenn man Canselect auf False stellt, kann die Zelle gar nicht ausgewählt werden. Leute, die sich gern mit den Cursortasten durch Grid hangeln werden nie von Spalte 1 zu spalte 4 kommen. Das mit Goediting mache ich so:
Delphi-Quellcode:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer;
var CanSelect: Boolean);
begin
if acol in [2,3] then stringgrid1.Options:=stringgrid1.Options-[goediting]
else stringgrid1.Options:=stringgrid1.Options+[goediting];
end;
Mfg Frank
[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]