Linklabel in einem Stringgrid - Idee gesucht

[Martin K]

Hab mal grad was gebastelt:

So erhältst du mit MouseMove deine aktuelle Zelle, in der du grad mit der Mouse bist:
Ich denke es ist klar, was Col und Row für Werte liefern!

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var i, Row, Col: Integer;
begin
  i := 0;
  Col := -1;
  Row := -1;

  While i <= X do
  begin
    Inc(Col);
    i := i + StringGrid1.ColWidths[Col] +1;
  end;

  i := 0;
  While i <= Y do
  begin
    Inc(Row);
    i := i + StringGrid1.RowHeights[Row] +1;
  end;

  Caption := 'Aktuelle Position: '+Inttostr(Col)+', '+Inttostr(Row);
end;