delphi - página - hipervinculos en html ejemplos
¿Cómo puedo hacer que TLabel se comporte como un hipervínculo en Delphi? (4)
¿Cómo puedo hacer que TLabel se comporte como un hipervínculo en Delphi?
Nota: No estoy interesado en usar TLinkLabel debido a problemas de compatibilidad con versiones anteriores.
Colorearlo en azul, establecer el estilo para subrayar y agregar un evento OnClick!
procedure TForm1.Label1Click(Sender: TObject);
var
MyLink: string;
begin
MyLink := ''http://www.mysite.com/'';
ShellExecute(Application.Handle, PChar(''open''), PChar(MyLink),
nil, nil, SW_SHOW);
end;
Depende de lo que requiera de sus hipervínculos. Yo solo ...
- establecer el color de la fuente en azul
- utilice los eventos OnMouse [Enter | Leave | Move] para aplicar adecuadamente el estilo de subrayado a la fuente
- utilice el evento OnClick para generar un navegador y cambie el color de la fuente, según lo desee.
Uno puede tabular y dar enfoque a los enlaces en un navegador. Por lo tanto, consideraría utilizar un control de ventana (como un TButton dibujado por el propietario) para esta tarea.
¿Qué versión de Delphi estás usando? Mirando mi Delphi 4 IDE, TLabel no tiene Evento OnMouseEnter / OnMouseLeave, que sería necesario para cambiar el cursor a una "Mano" cuando el usuario pasa sobre el "enlace".
Tiene el evento OnClick, que se puede conectar para iniciar el navegador web del usuario: