Linklabel in einem Stringgrid - Idee gesucht

[marabu]

Nur für den Fall, dass jemand unabhängig von der Zelldimensionierung sein möchte - hier noch der Ansatz, auf den ich euch stoßen wollte:

Delphi-Quellcode:

procedure TDemoForm.SGDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  iCol, iRow: Integer;
  p: TPoint;
begin
  with Sender as TStringGrid do
  begin
    DoubleBuffered := true; // hier nur als Hinweis
    p := ScreenToClient(Mouse.CursorPos);
    MouseToCell(p.X, p.Y, iCol, iRow);
    if (iCol = ACol) and (iRow = ARow) then
    begin
      if gdSelected in State
        then Canvas.Font.Color := clHighlightText
        else Canvas.Font.Color := clHighlight;
      Canvas.Font.Style := Canvas.Font.Style + [fsUnderline];
    end;
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
  end;
end;

procedure TDemoForm.SGMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  SG.Invalidate;
end;

Gute Nacht vom marabu