StringGrid -> goEditing = FALSE -> Eine Spalte editierbar

[HolgerCW]

Hallo zusammen,

ich möchte in einem StringGrid nur eine Spalte editierbar machen. goEditing habe ich auf FALSE gelassen und wollte in onSelectCell folgendes tuen:

Code:

With Sender as TStringGrid do
begin

   
    If ACol = 6 then
    begin

     CanSelect := True;
     exit;
     
    end;

  end;

Klappt aber nicht ...

[Helmi]

Hallo,

ich hab das mal so gelöst:

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  StringGrid: TStringGrid;

begin
  //temporäres StringGrid
  StringGrid := Sender as TStringGrid;

  //Zellen-Editor ausschalten
  StringGrid.Options := StringGrid.Options - [goEditing];

  If ARow > 0 then
    //2. und 3. Spalte editierbar
    If ACol in [1, 2] then
      begin
        //Zellen-Editor einschalten
        StringGrid.Options := StringGrid.Options + [goEditing];
      end;
end;

In diesem Beispiel sind die 2. und 3. Spalte editierbar - das musst du dann an deine Wünsche anpassen.

Nebenbei bemerkt: "Klappt aber nicht" ist wie "Geht nicht" keine Fehlermeldung!

[HolgerCW]

Vielen dank. Klappt gut.