Wie mache ich ein Tlabel wie ein Hyperlink in Delphi?

Question

Wie mache ich ein Tlabel wie ein Hyperlink in Delphi?

HINWEIS: Ich bin nicht daran interessiert, TlinkLabel aufgrund von Kompatibilitätsproblemen rückwärts zu verwenden.

Answer 1

Färben Sie es blau, setzen Sie den Stil, um zu unterstreichen und ein Onclick -Event hinzuzufügen!

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;

Answer 2

Es hängt davon ab, was Sie von Ihren Hyperlinks benötigen. Ich würde nur ...

• Stellen Sie die Schriftfarbe auf Blau ein
• Verwenden Sie die Onmouse [Enter | Leave | Move] Ereignisse, um den Unterstil angemessen auf die Schriftart anzuwenden
• Verwenden Sie das Onclick -Event, um einen Browser zu erzeugen und die Schriftfarbe nach Wunsch zu ändern.

Answer 3

Welche Version von Delphi verwenden Sie? Wenn Tlabel meine Delphi 4 -IDE ansieht, hat er kein Onmouseger/OnmousEleave -Ereignis, was erforderlich wäre, um den Cursor in eine "Hand" zu ändern, wenn der Benutzer über den "Link" schwebt.

Es gibt das Onclick -Ereignis, mit dem Sie den Webbrowser des Benutzers starten können:

So bringen Sie den Browser in Delphi vor oder starten Sie vorne oder starten Sie in Delphi

Answer 4

Man kann Registerkarte und Fokus auf Links in einem Browser geben. Daher würde ich in Betracht ziehen, eine Fenstersteuerung (wie ein Eigentümer gezeichnet) für diese Aufgabe zu verwenden.