StringGrid: bestimmte Spalten nicht editierbar einstellen

[Helmi]

Hallo,

ich hab eine StringGrid die als Option "goEditing" hat.
Nun möchte ich aber, dass zwei Spalten nicht editierbar sind.

Wie kann ich das realisieren?

Ich habs mal probiert im OnDrawCell, aber dann flattert die StringGrid.

Delphi-Quellcode:

procedure TEinstellungenForm.StringGrid_ZugzieleDrawCell(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  If (ACol = 0) then
   StringGrid_Zugziele.Options := StringGrid_Zugziele.Options - [goEditing]
  else
   StringGrid_Zugziele.Options := StringGrid_Zugziele.Options + [goEditing];
end;

[himitsu]

ja klar, denn dieses wird immer aufgeruden, wenn die Celle gezeichnet wird
und wenn du die Optionen änderst, dann wird ein komlettes Neuzeichnen angestoßen.
Abgesehn davon, daß du dort nur die Zelle erfährst, welche Zelle grad gezeichnet werden soll und nicht welche Aktiv ist.

OnSelectCell ist dein Freund

Delphi-Quellcode:

procedure TForm1.StringGrid_ZugzieleSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  If ACol in [1, 3{die Spalten}] then
   StringGrid_Zugziele.Options := StringGrid_Zugziele.Options - [goEditing]
  else
   StringGrid_Zugziele.Options := StringGrid_Zugziele.Options + [goEditing];
end;

[Helmi]

Macht irgendwie Sinn OnSelectCell zu verwenden.

Danke für den Tip :-)