Ir al contenido


Foto

¿Cómo crear un vínculo con Delphi?


  • Por favor identifícate para responder
2 respuestas en este tema

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.409 mensajes
  • LocationRepública Dominicana

Escrito 02 noviembre 2008 - 04:33

El siguiente código sirve para lograr un vínculo (Hyperlink) para abrir un sitio determinado con tu navegador favorito:



delphi
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ShellApi, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     procedure Label1Click(Sender: TObject);
  13.     procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  14.       Y: Integer);
  15.     procedure Label1MouseLeave(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   Form1: TForm1;
  24.  
  25. implementation
  26.  
  27. {$R *.dfm}
  28.  
  29. procedure TForm1.Label1Click(Sender: TObject);
  30. begin
  31. If (Sender is TLabel) then
  32.   with (Sender as Tlabel) do
  33.   ShellExecute(Application.Handle,nil,Pchar('http://www.delphiaccess.com'),'','',SW_SHOWNORMAL);
  34. end;
  35.  
  36. procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  37.   Y: Integer);
  38. begin
  39. Label1.Font.Color := clBlue;
  40. Label1.Font.Style := [fsUnderline];
  41. end;
  42.  
  43. procedure TForm1.Label1MouseLeave(Sender: TObject);
  44. begin
  45. Label1.Font.Color := clNone;
  46. Label1.Font.Style := [];
  47. end;
  48.  
  49. end.



Resultado:

Imagen Enviada

Saludos.




  • 0

#2 lKinGl

lKinGl

    Advanced Member

  • Moderador
  • PipPipPip
  • 118 mensajes
  • LocationVenezuela

Escrito 02 noviembre 2008 - 04:54

buen ejemplo ;)

mira este otro ejemplo :D

agregar a la uses lo siguiente: "ShellApi, UrlMon"... sin las comillas
luego en el evento onclick agregar este código ..:D


delphi
  1. var
  2. Dire : String;
  3. begin
  4. Dire := 'http://www.kingsoft.com.ve';
  5. HLinkNavigateString(NIL, PWideChar(WideString(Dire)) );
  6. end;



Salu2
  • 0

#3 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.409 mensajes
  • LocationRepública Dominicana

Escrito 02 noviembre 2008 - 04:56

Muchas gracias lKinGl, otro código más para aprender ;).

Saludos.
  • 0