Insérer un lien hypertexte dans un RichEdit

**alili mostafa** · 01/04/2008, 13h28

salut ;
je souhaite savoir s'il est possible d'insere un lien hyber text dans un RichEdit
et comment faire des titres en gras et en autres couleurs dans RichEdit
merci ,

**ero-sennin** · 01/04/2008, 21h03

Salut,

Une petit recherche sur la forum t'aurait permis de trouver de l'aide ... néanmoins, je te mets un morceau de code (j'suis généreux aujourd'hui

)

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Effacement du contenu du RichEdit
  RichEdit1.Clear;
  //Par defaut, ecrit en noir ...
  RichEdit1.DefAttributes.Color := clBlack;
  // ... sans style particulier
  RichEdit1.DefAttributes.Style:=[];
  //Ecrit "Au revoir tout le monde et à bientôt"
  RichEdit1.Lines.Add('Au revoir tout le monde et à bientôt');
  //Se positionne au début du RichEdit
  RichEdit1.selstart:=0;
  //Sélectionne x caractères (ici la longueur de "Au revoir")
  RichEdit1.SelLength:=length('Au revoir');
  //Met en rouge et en gras la selection
  RichEdit1.SelAttributes.Color:=clRed;
  //Se positionne après le mot "tout" (+1 pour l'espace qui suit)
  RichEdit1.selstart:=length('Au revoir tout')+1;
  //Sélectionne x caractères ...
  RichEdit1.SelLength:=length('le monde');
  // Met en "Gras" la sélection
  RichEdit1.SelAttributes.Style:=[fsBold];
  //Se positionne après le mot "et" (+1 pour l'espace qui suit)
  RichEdit1.selstart:=length('Au revoir tout le monde et')+1;
  //Sélectionne x caractères ...
  RichEdit1.SelLength:=length('à bientôt');
  // Met en "Souligné" et "Italique" la sélection
  RichEdit1.SelAttributes.Style:=[fsUnderline,fsItalic];
end;