Discussion :

[JoseF]

Bonjour,

est-ce que quelqu'un sait comment afficher un lien cliquable (http:// mailto: ) avec Lazarus ?
En fait dans un carnet d'adresses je voudrais afficher des infos nom, prénom, adresse, téléhone, etc... et mettre des liens cliquables sur le infos mails et sites qui m'ouvriraient soit ma messagerie soit la page html.

merci bien si vous avez des infos..


JoseF

[Clandestino]

Si j'avais celà à faire, j'utiliserais un Tlabel en modifiant le style de sa police avec l'évènement onmousemove, je remetrai sa police d'origine avec l'evenement onmousemove de la fiche ou de l'elément graphique se trouvant aux alentours de ce tlabel...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Label1.Font.Style:= Label1.Font.Style+[fsunderline];
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Label1.Font.Style:= Label1.Font.Style-[fsunderline];
end;

Quand au lien, je pense qu'il suffit d'utiliser shellexecute sous windows, et un Tprocess sous linux...
une petite compilation conditionnelle devrait permettre de faire un code portable...

liens utiles :
l'utilisation de shellexecute :
http://delphipage.free.fr/shellexecute.html

les Tprocess :
http://wiki.lazarus.freepascal.org/E...al_Programs/fr

[Clandestino]

Un article vient de paraître sur le site officiel de lazarus parlant de ces composants OrphPort Project:
http://web.fastermac.net/~MacPgmr/Or...tatus_Controls

téléchargeables ici
http://web.fastermac.net/~MacPgmr/OrphPort/downloads/

Dans la palette se trouve TOvcURL qui est issu d'un TcustomLabel et qui agit comme un hyperlien...

Compatible win32 et linux...

Bonne prog

Clandestino