Hallo,
warum so kompliziert ?
Im 2.Thread stand doch die Lösung
Grid.Col -> aktuell markierte Spalte
Grid.Row -> aktuell markierte Zeile
ARGZZZ !!!
gehstock hat die properties vertauscht
Grid.Cells[Grid.Col,Grid.Row] sollte dort stehen
Das sind properties, die also beim Auslesen wie eine Funktion benutzt werden
Mal ein kleines Bsp.
Neue Anwendung
StringGrid drauf
und folgendes in FormCreate
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
iCol : Integer;
iRow : Integer;
iCounter : Integer;
begin
Grid1.ColCount:= 7;
Grid1.RowCount:= 7;
iCounter:= 0;
for iRow:= 0 to Grid1.RowCount-1 do
begin
for iCol:= 0 to Grid1.ColCount-1 do
begin
Inc(iCounter);
Grid1.Cells[iCol,iRow]:= IntToStr(iCounter);
end;
end;
end;
Im OnClick des Grids
Delphi-Quellcode:
procedure TForm1.Grid1Click(Sender: TObject);
begin
ShowMessage(Grid1.Cells[Grid1.Col,Grid1.Row]);
end;
Kann es sein, dass du
Col und
Row verwechselt hast
oder noch viel schlimmer, wird irgendwelchen globalen Variablen hantierst,
die falsch gesetzt sind ??
Heiko