Comment on créer un texte mais lorsque l'on clique dessus, ça va sur internet (Mozilla Firefox). Genre si je clique sur "Google" et bien ça va sur Google.
Comment on créer un texte mais lorsque l'on clique dessus, ça va sur internet (Mozilla Firefox). Genre si je clique sur "Google" et bien ça va sur Google.
Salut
Le TLabel possède un évènement OnClick. Il suffit d'utiliser un ShellExecute pour appeler l'explorateur par défaut:
Tu définis le caption du TLabel avec l'adresse souhaitée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(GetDesktopWindow, 'open', PChar(TLabel(Sender).Caption), nil, nil, SW_SHOWNORMAL); end;
@+ Claudius
Il y a une erreur : Undeclared Identifier Shellexecute
Un petit ShellAPI dans les uses?
Partager