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

[pablorc]

OK esto funciono bien, pero como habria que hacer si el hipervinculo va dirigido a una carpeta que se encuentra en el disco duro y su nombre debo de obtenerlo de un TDBEdit.

[dec]

Hola,

Pablo, bievenido al ClubDelphi. Ayer planteaste una cuestión en este Hilo, que es de febrero de 2004. Podrías haber iniciado un nuevo Hilo para tu pregunta, o haber encontrado alguna respuesta a la misma usando el buscador de los Foros.

En todo caso, para hacer lo que dices, no tienes sino utilizar la función que se menciona en este hilo "ShellExecute", pasándole como parámetro la ruta de la carpeta que quieras abrir, en lugar de una dirección de Internet.

Luego podrías echar un vistazo en la ayuda del SDK Win32 (la cual se incluye con Delphi) sobre la función "ShellExecute", puesto que otros parámetros que admite pudieran darte alguna que otra idea.

Otra vez bienvenido al ClubDelphi Pablo.