topgrid zelle unter maus position ermitteln

[sniper_w]

Was ist TopGrid?
Beim TStringGrid und TDrawGrid wäre es so:

Delphi-Quellcode:

procedure TForm1.DrawGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 var col,row:integer;
begin
DrawGrid1.MouseToCell(x,y,col,row);
Label1.Caption:='x:  '+inttostr(col)+'    y:  '+inttostr(row);
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
 var col,row:integer;
begin
StringGrid1.MouseToCell(x,y,col,row);
Label1.Caption:='x:  '+inttostr(col)+'    y:  '+inttostr(row);
end;

[EDIT]
Oder zusammen gefasst:

Delphi-Quellcode:

procedure TForm1.String_AND_DrawGrid_MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
 var col,row:integer;
begin
 TCustomDrawGrid(Sender).MouseToCell(x,y,col,row);
 Label1.Caption:='x:  '+inttostr(col)+'    y:  '+inttostr(row);
end;