Documentación de HotXLS
InicioInformación generalVista general de la fachada XLSX

Clases TXLSXHyperlinks / TXLSXHyperlink

Soporte de hipervínculos en una TXLSXWorksheet. Cada entrada ancla una sola celda a una URL externa. SaveAs emite un bloque <hyperlinks> en la hoja de cálculo más un archivo xl/worksheets/_rels/sheetN.xml.rels correspondiente; Open resuelve los destinos de relación de vuelta en la colección. Declarado en lxHandleX

Declaración de TXLSXHyperlink

type
  TXLSXHyperlink = class
    constructor Create(ARow, ACol: Integer; const AUrl, ADisplay, ATooltip: WideString);
    function IsInternal: Boolean;     // True when Location is set and Url is empty
    property Row: Integer;
    property Col: Integer;
    property Url: WideString;        // External URL (mutually exclusive with Location)
    property Location: WideString;   // Internal anchor, e.g. "Sheet2!A1"
    property Display: WideString;
    property Tooltip: WideString;
  end;

Miembros de TXLSXHyperlink

Row, Col1-basado celda anchor coordinates
UrlExternal URL. Written sheetN.xml.rels con TargetMode="External"
DisplayOptional display texto shown por Excel en place de URL. Maps display attribute on <hyperlink>
TooltipOptional tooltip shown cuando user hovers celda. Maps tooltip attribute on <hyperlink>

Declaración de TXLSXHyperlinks

type
  TXLSXHyperlinks = class
    constructor Create;
    destructor Destroy; override;
    function Add(ARow, ACol: Integer; const AUrl: WideString): Integer; overload;
    function Add(ARow, ACol: Integer; const AUrl, ADisplay: WideString): Integer; overload;
    function Add(ARow, ACol: Integer; const AUrl, ADisplay, ATooltip: WideString): Integer; overload;
    // Internal hyperlink — Location overload. No rels relationship.
    function AddInternal(ARow, ACol: Integer; const ALocation, ADisplay, ATooltip: WideString): Integer;
    function IndexOfCell(ARow, ACol: Integer): Integer;
    function FindAt(ARow, ACol: Integer): TXLSXHyperlink;
    function DeleteAt(ARow, ACol: Integer): Boolean;
    function DeleteInRange(ARow1, ACol1, ARow2, ACol2: Integer): Integer;
    procedure Delete(Index: Integer);
    procedure Clear;
    property Count: Integer;
    property Items[Index: Integer]: TXLSXHyperlink; default;
  end;

Miembros de TXLSXHyperlinks

Add(Row, Col, Url)Agrega un hipervínculo solo con una URL. Devuelve el nuevo índice de entrada
Add(Row, Col, Url, Display)Agrega un hipervínculo con un texto visible explícito
Add(Row, Col, Url, Display, Tooltip)Agrega un hipervínculo con texto visible y información sobre herramientas explícitos
AddInternal(Row, Col, Location, Display, Tooltip)Agrega un hipervínculo de anclaje interno: salta a una ubicación Sheet!Cell (por ejemplo, "Sheet2!A1") en otra parte del libro. No se genera ninguna relación rels de la hoja de cálculo; el elemento Sheet!Cell location (e.g "Sheet2!A1") en otra parte del libro. No se genera ninguna relación rels de hoja; el <hyperlink> element carries an inline location attribute. Use Worksheet.AddHyperlinkToCell(...) lleva un atributo de ubicación en línea. Use Worksheet.AddHyperlinkToCell(...) como acceso directo habitual
IndexOfCell(Row, Col)Devuelve el índice basado en 0 del hipervínculo anclado en la coordenada de celda basada en 1, o -1 cuando la celda no tiene hipervínculo -1 cuando la celda no tiene ningún hipervínculo
FindAt(Row, Col)Devuelve el objeto hipervínculo anclado en la celda, o nil cuando no hay hipervínculo nil when no hyperlink is present
DeleteAt(Row, Col)Elimina el hipervínculo anclado en la celda y devuelve True; returns False Elimina el hipervínculo anclado en la celda y devuelve True; devuelve False cuando no existe ningún hipervínculo coincidente
DeleteInRange(Row1, Col1, Row2, Col2)Elimina cada hipervínculo cuyo ancla esté dentro del rango de celdas inclusivo basado en 1 y devuelve la cantidad eliminada. Se aceptan coordenadas invertidas
Delete(Index)Elimina el hipervínculo en el índice basado en 0 especificado de la colección
CountCantidad de hipervínculos en la hoja de cálculo
Items[Index]Hipervínculo en el índice basado en 0 indicado. Declarado como la propiedad predeterminada
ClearElimina y libera todos los hipervínculos

Ejemplo

var
  ws: TXLSXWorksheet;
begin
  ws := Workbook.Sheets.Add('Links');

  ws.Cells.Item[1, 1].Value := 'losLab';
  ws.AddHyperlink(1, 1, 'https://www.loslab.com',
                  'losLab home', 'Open in browser');

  // Equivalent through the collection:
  ws.Hyperlinks.Add(2, 1, 'https://www.loslab.com/docs');

  if ws.Hyperlinks.FindAt(1, 1) <> nil then
    ws.Hyperlinks.DeleteInRange(1, 1, 2, 1);
end;

Véase también