IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 12 fois
Vote des utilisateurs
0 
0 
Détails
Licence : Non renseignée
Mise en ligne le 9 février 2013
Plate-forme : Windows
Langue : Français
Référencé dans
Navigation

Label vers un site internet

Pour créer ce lien il faut suivre les étapes suivantes :
1 - Ajouter un label sur une fiche ;
2 - Définir un police avec le style souligné ( Label1.Font.Style=[fsUnderline] ) ;
3 - Modifier le curseur du label ( Label1.Cursor=crHandPoint ) ;
4 - Ajouter un Hint sur le label ( Label1.ShowHint=True et Label1.Hint='Visitez mon site :' ) ;
5 - Sur le OnClick ajouter le code ci-dessous :

Procedure TForm1.Label1Click(Sender: TObject);
Begin
ShellExecute(Handle,'OPEN','http://nono40.fr.st',Nil,Nil,SW_SHOW);
End
;

Il faut ajouter ShellApi dans le Uses pour que le code fonctionne.
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.