Link im LinkLabel auch öffnen...

[Alexander]

Hallo,
mal ein kleines Beispiel wie man einen Link im Linklabel auch wirklich öffnet. Das Beispiel zeigt zwei Links in einem LinkLabel mit unterschiedlichen Verweisen (Internetadresse, eMail).

Delphi-Quellcode:

procedure TWinForm1.LinkLabel1_LinkClicked(sender: System.Object; e: System.Windows.Forms.LinkLabelLinkClickedEventArgs);
begin
  System.Diagnostics.Process.Start(e.Link.LinkData.ToString);
end;

procedure TWinForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  ersterLink, zweiterLink : String;
begin
  ersterLink := 'http://www.delphi-praxis.de'#13#10;
  zweiterLink := 'mailto:[e-mail]';
  LinkLabel1.Text := ersterLink + zweiterLink;
  // Definieren, wo der erste bzw. zweite Link anfängt und aufhört und auf was
  // er verweisen soll...
  LinkLabel1.Links.Add(0, ersterLink.Length, ersterLink);
  LinkLabel1.Links.Add(ersterLink.Length, zweiterLink.Length, zweiterLink);
end;

Alexander

[edit=Chakotay1308]Klassifizierung und Delphi-Tags angepasst. Mfg, Chakotay1308[/edit]