seltsames Phänomen im stringgrid ?!?

[Sharky]

Zitat von Mirilin:

:...und wie wild damit umherfahren...

Aaaahhhh.... jetzt kommt der Fehler.

[Sharky]

*blubb*

Delphi-Quellcode:

procedure TForm1.StringGrid5SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  myACol : Integer;
begin
  StringGrid5.OnSelectCell := nil;  // Nicht das unsere OnSelectCell mehrfach läuft ;-)
  myAcol := Acol;
  CanSelect:=Not ((ACol=9) or (Acol=18) or (Acol=27));
  if not (CanSelect) then
  begin
    if (stringgrid5.col>acol) then
    begin
     stringgrid5.col:=Stringgrid5.col-2;
     DEC (myACol);
    end
    else
    begin
      stringgrid5.col:=Stringgrid5.col+2;
      Inc (myACol);
    end;
  end;
  label1.Caption:=inttostr(myacol);
  Application.ProcessMessages;
  StringGrid5.OnSelectCell := StringGrid5SelectCell;  // Fertig. Jetzt darf sie wieder aktiv werden
end;

Jetzt sollte es aber gehen

[richard_boderich]

also sharky letzter code von dir funktioniert doch nich
bei mehrfachem mausklick auf die gesperrte zelle stimmt
zwar der colwert, jedoch ist die verbotene zelle dann mit
den gridcursor selectiert
hab nochmal im forum gesuch, und ne loesung die funktioniert gefunden , code
is glaube ich von keldorn
hier der link dazu

Link

[richard_boderich]

ok sorry, mein fehler, hier der link nochmal


Link