delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellApi, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; procedure Label1Click(Sender: TObject); procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Label1MouseLeave(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Label1Click(Sender: TObject); begin If (Sender is TLabel) then with (Sender as Tlabel) do ShellExecute(Application.Handle,nil,Pchar('http://www.delphiaccess.com'),'','',SW_SHOWNORMAL); end; procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Font.Color := clBlue; Label1.Font.Style := [fsUnderline]; end; procedure TForm1.Label1MouseLeave(Sender: TObject); begin Label1.Font.Color := clNone; Label1.Font.Style := []; end; end.
Resultado:
Saludos.