Bonjour,
Je désire que le texte d'un Tlabel pointe vers un site internet. Je suppose que c'est possible, mais comment faire ?
Merci d'avance.
Bonjour,
Je désire que le texte d'un Tlabel pointe vers un site internet. Je suppose que c'est possible, mais comment faire ?
Merci d'avance.
Hé ben, en cherchant dans la FAQ, en utilisant la fonction "Rechercher" du forum, en utilisant ton ami Google, tu verras, il y a plein de réponses...
--
jp
Bonjour.
Voici un exemple qui fonctionne très bien.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57 unit APropos; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,ShellAPI; type TForm3 = class(TForm) BitBtn1: TBitBtn; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label5: TLabel; Label6: TLabel; Label4: TLabel; Label7: TLabel; procedure Label1Click(Sender: TObject); procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Déclarations privées } public { Déclarations publiques } end; var Form3: TForm3; implementation {$R *.DFM} procedure TForm3.Label1Click(Sender: TObject); begin // Excecute internet explorer ShellExecute(handle, 'Open', 'http://philippe.gormand.free.fr/', '', '', SW_SHOWNORMAL); end; procedure TForm3.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Font.Style:=[fsUnderline]; Label1.Refresh; end; procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Font.Style:=[]; Label1.Refresh; end; end.
Merci, Philippe Gormand, pour cette réponse constructive. J'ai testé ce code, et ça marche super bien !
Serait-ce trop vous demander comment faire un lien sur une adresse email, mais cette fois pour lancer la messagerie afin d'y taper un message à envoyer ? Est-ce possible, dans la mesure où on ne sait pas quel sera le logiciel de messagerie de l'utilisateur (Outlook, Mozilla, etc...)?
Merci encore.
et la faq c'est fait pourqoi
au lieux de mettre http tu mes mailto:adressemail
n'oublie pas le tag résolue
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 ShellExecute(Handle,'OPEN','Mailto:ad@serveurmessagerie.com', Nil,Nil,SW_SHOW);
Ok, merci, et honte à moi, c'est vrai que je n'ai pas bien cherché.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager