Linklabel in einem Stringgrid - Idee gesucht

[Martin K]

Hm...

Nur gut das ich grad mit viel Mühe diesen Code gebastelt hab...
Aber er funzt auch!!!
Ein richtiger Hover-Effekt!!!

Okay, zugegeben:
Mit MouseToCell ist es wesentlich einfacher.

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var i, j, Row, Col: Integer;
begin
  StringGrid1.Repaint;

  i := 0;
  j := 0;
  Col := -1;
  Row := -1; 

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

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

  StringGrid1.Canvas.Font.Color := clBlue;
  StringGrid1.Canvas.Font.Style := StringGrid1.Canvas.Font.Style + [fsUnderline];
  StringGrid1.Canvas.TextOut(i, j, StringGrid1.Cells[Col,Row]);

end;

//edit: Code noch etwas übersichtlicher gestaltet.