Comment faire un TLabel se comporter comme un lien hypertexte dans Delphi?Comment faire un TLabel se comporter comme un lien hypertexte dans Delphi?
Remarque: Je ne suis pas intéressé par l'utilisation de TLinkLabel en raison de problèmes de compatibilité descendante.
Colorez-le en bleu, mettez du style à souligner et ajoutez un événement OnClick!
procedure TForm1.Label1Click(Sender: TObject);
var
MyLink: string;
begin
MyLink := 'http://www.mysite.com/';
ShellExecute(Application.Handle, PChar('open'), PChar(MyLink),
nil, nil, SW_SHOW);
end;
Cela dépend de ce dont vous avez besoin de vos hyperliens. Je venais ...
OnMouseEnter et OnMouseLeave ne sont pas disponibles dans D7 et versions antérieures (pas sûr de D2005) donc le commentaire sur TLinkLabel l'exclut également. Vous devrez utiliser OnMouseMove –
Je viens de vérifier - Delphi 7 a certainement OnMouseEnter et OnMouseLeave:} – moobaa
@Gerry: Oui, ils sont; il faut juste travailler un peu plus fort.
Quelle version de Delphi utilisez-vous? En regardant mon IDE Delphi 4, TLabel n'a pas d'événement OnMouseEnter/OnMouseLeave, ce qui serait nécessaire pour changer le curseur en "Hand" quand l'utilisateur passe la souris sur le "lien".
Il a le événement OnClick, que vous pouvez câbler pour lancer le navigateur Web de l'utilisateur:
Delphi 2009. Peut-être que souris sur était le mauvais terme. Dans les propriétés de TLabel, dans D2009, vous pouvez spécifier quel curseur doit être utilisé pour cette étiquette. – Rowan
onglet One peut et à donner le focus aux liens dans un navigateur. Par conséquent, j'utiliserais un contrôle fenêtré (comme un TButton dessiné par le propriétaire) pour cette tâche.
Oui, c'est ce que je cherchais. Je l'accepterai dans un jour ou deux, pour m'assurer que personne d'autre n'a d'autres idées. À votre santé. – Rowan
Devrait être 'SW_SHOWNORMAL'. –
N'oubliez pas d'ajouter "utilise ShellApi;" –