un TLabel como Hipervínculo

[zuriel_zrf]

¿Como le hago para que un TLabel lo pueda usar como hipervínculo para un archivo o pagina web en la red?

[Nuria]

Hola!

Con ShellExecute.

En el uses coloca ShellApi y en el onclick del TLabel por ejemplo:

  ShellExecute(Self.Handle, nil, Pchar('http:\\www.loquequieras.com'),
               '', '', SW_SHOWNORMAL);

Espero que te sirva.

Saludos!

[__cadetill]

Usando ShellExecute...

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(AboutBox.Handle,
               nil,
               PChar(TLabel(Sender).Caption),
               '',
               '',
               SW_SHOWNORMAL);
end;

PD: para que luego no digan que me lo dejo... añade ShellApi en el uses

[__cadetill]

Vaya, veo que Nuria últimamente se me adelanta por los pelos

[zuriel_zrf]

gracias por la información.

oye, ¿para cualquier sentencia de la api de windows tengo que usar la unidad ShellApi? ¿ya no es la unidad windows?

[__cadetill]

Empezado por zuriel_zrf

¿para cualquier sentencia de la api de windows tengo que usar la unidad ShellApi? ¿ya no es la unidad windows?

Tienes API's definidas en ammas units y, de echo, ShellApi utiliza la unit Windows

unit ShellAPI;

{$WEAKPACKAGEUNIT}

interface

uses Windows;

[Nuria]

Originalmente publicado por Cadetill
Vaya, veo que Nuria últimamente se me adelanta por los pelos...

Para que veas que me estoy superando, . Pero creo que aún me queda mucho, pero que mucho para superarte.

[DarkByte]

Muchos paquetes de componentes traen uno que hace cosas similares al que tu quieres... aunque siempre es mejor currarse uno su programa :d