Hallo,
Zitat:
Listenindex überschreitet das Maximum (-1)'. Prozeß wurde angehalten. Mit einzelne Anweisung oder Start fortsetzen."
hab ich natürlich nicht verstanden
Dann würde ich die Meldung mal in Google eintragen.
Aber OK.
Statt MausDown nimm OnClick.
Da wird die Col und Row des Grids direkt übergeben.
Das
MouseToCell(X,Y,ACol,ARow); kannst du dann weglassen.
Ausserdem frage ich michh,
warum du bei einem Klick "tausende" Zellen färbst.
Delphi-Quellcode:
for i:=-1 to 1 do
begin
for j:=-1 to 1 do
begin
Objects[ACol+i,ARow] := Pointer(Integer(Objects[ACol+i,ARow]) xor 1);
Objects[ACol,ARow+j] := Pointer(Integer(Objects[ACol,ARow+j]) xor 1);
end;
end;
Zitat:
aber wenn ich auf die erste zeile oder spalte clicke
Die Zelle links oben hat
Col=0 und
Row=0
Du fängst bei -1 an,
klar geht das schief.
Ein Cells[-1,-1] gibt es nicht.
Heiko