ok leute,habe ein stringgrid in dem ich mehrere Spalten gesperrt hab. 9 , 18 und 27
die folgende routine hab ich erstellt um die gesperrten spalten zu ueberspringen.
funktioniert auch super, der cursor macht genau das was er soll kann von 1 bis 32
mit pfeil tasten "rechts /links" durchgehen und die gesperrten werden uebersprungen.
nun zu meinem eigentlichen problem
also ich berechne aus col und row-wert einen indexwert fuer ein normales array
z.B.
colcount=10
rowcount=10
col=5
row=5
indexwert=50
dazu muss ich den col und rowwert abfragen, habe zum test die labelanweiseung drin
das komische ist, das die angezeigten col werte manchmal nich mit den positionen
des gridcursors uebereinstimmen z.b. wenn ich bei celle 1 1x pfeil rechts druecke geht zwar der cursor eine zelle
nach rechts, aber der col wert bleibt 1, wenn ich dann 1x pfeil nach links druecke, so geht der cursor 1 schritt nach links,
aber der colwert ist dann 2 bzw wird als 2 im label angezeigt, finde das sehr seltsam, weil ich dachte gridcursor und
col und row wert staenden in direkter abhaengikeit zueinander. und normalerweise muesste er bei "pfeil links" kleiner werden
und nich groesser
Delphi-Quellcode:
procedure TForm1.StringGrid5SelectCell(Sender: TObject; ACol,
ARow: Integer;
var CanSelect: Boolean);
begin
CanSelect:=Not ((ACol=9)
or (Acol=18)
or (Acol=27)
and (ARow=stringgrid5.row));
if (canselect=false)
and (stringgrid5.col>acol)
then stringgrid5.col:=Stringgrid5.col-4;
if (canselect=false)
and (stringgrid5.col<acol)
then stringgrid5.col:=Stringgrid5.col+2;
label1.Caption:=inttostr(stringgrid5.col);
end;