StringGrid: Zelle editieren trotz goRowSelect

[guidobrose]

Also ich hab das grad mal probiert.

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
with sender as TStringGrid do
  if ACol=1 then Options:=Options+[goEditing]-[goRowSelect]
  else Options:=Options-[goEditing]+[goRowSelect];
end;

Funktioniert im Prinzip ganz gut. Sobald ein Zelle in Spalte 1 geklickt wird, dann kann man editieren, leider muss man danach zweimal klicken, um wieder [goRowSelect] ein zu schalten. Da weiß ich jetzt auch keine Lösung dafür.