Bonjour,

Je vous propose un nouvel élément à utiliser : 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.

Qu'en pensez-vous ?