Thema: Delphi Eingabe in Stringgrid

Einzelnen Beitrag anzeigen

Keldorn

Registriert seit: 6. Mär 2003
Ort: Meißen
876 Beiträge
 
Delphi 10.1 Berlin Professional
 
#10
  Alt 2. Mai 2003, 16:38
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]

Lükes Grundlage der Programmierung:
Es wird nicht funktionieren
(Murphy)
  Mit Zitat antworten Zitat