Comment créer un lien vers une url ?

Version imprimable

28/11/2006, 07h31
Teddy

Comment créer un lien vers une url ?

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.
28/11/2006, 08h04
Jipété

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:

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.

28/11/2006, 17h19
Teddy

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.
28/11/2006, 17h37
diden138

Re :
:recherch:et la faq c'est fait pourqoi :faq:
au lieux de mettre http tu mes mailto:adressemail
Code:

1 2 3 ShellExecute(Handle,'OPEN','Mailto:ad@serveurmessagerie.com', Nil,Nil,SW_SHOW);
n'oublie pas le tag résolue
28/11/2006, 18h43
Teddy

Ok, merci, et honte à moi, c'est vrai que je n'ai pas bien cherché.:oops: