¿Cómo puedo hacer que TLabel se comporte como un hipervínculo en Delphi?¿Cómo hago para que un TLabel se comporte como un hipervínculo en Delphi?
Nota: No estoy interesado en utilizar TLinkLabel debido a problemas de compatibilidad con versiones anteriores.
¡Color azul, establece el estilo para subrayar y agrega 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 necesite de sus hipervínculos. Yo sólo ...
OnMouseEnter y OnMouseLeave no están disponibles en D7 ni en versiones anteriores (no estoy seguro acerca de D2005) por lo que el comentario sobre TLinkLabel también lo impide. Tendrás que usar OnMouseMove –
Acabo de comprobar: Delphi 7 definitivamente tiene OnMouseEnter y OnMouseLeave:} – moobaa
@Gerry: Sí, lo son; solo tienes que trabajar un poco más duro.
¿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".
sí tiene el evento OnClick, que se puede cablear para iniciar el navegador web del usuario:
Delphi 2009. Tal vez el mouse over fue el término equivocado. En las propiedades para TLabel, en D2009, puede especificar qué cursor se debe usar para esta etiqueta. – Rowan
Una pestaña lata de enfoque y dar 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.
Sí, eso es lo que estaba buscando. Lo aceptaré en un día o dos, para asegurarme de que nadie más tenga otras ideas. Aclamaciones. – Rowan
Debería ser 'SW_SHOWNORMAL'. –
No olvide agregar "usa ShellApi;" –