Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
31 - CREER UN LIEN VERS UN SITE

PRÉSENTATION : Créer un lien sous forme de label vers un site Internet
ZIP : Téléchargez le zip APERÇUS : -1.jpg-

NOTES : 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

Il faut ajouter ShellApi dans le Uses pour que le code fonctionne.

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

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -