Wie kann ich ein TLabel in Delphi wie ein Hyperlink verhalten?Wie kann ich ein TLabel in Delphi wie einen Hyperlink verhalten?
Hinweis: Ich bin nicht daran interessiert, TLinkLabel wegen der Abwärtskompatibilitätsprobleme zu verwenden.
Farbe blau, legen Sie Stil zu unterstreichen und fügen Sie ein OnClick-Ereignis hinzu!
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;
Es hängt davon ab, was Sie von Ihren Hyperlinks benötigen. Ich würde nur ...
OnMouseEnter und OnMouseLeave sind in D7 und früher nicht verfügbar (nicht sicher über D2005), daher schließt der Kommentar zu TLinkLabel dies ebenfalls aus. Sie müssen OnMouseMove verwenden –
Ich habe gerade überprüft - Delphi 7 hat definitiv OnMouseEnter und OnMouseLeave:} – moobaa
@Gerry: Ja, sie sind; Du musst nur etwas härter arbeiten.
Welche Version von Delphi verwenden Sie? Wenn ich meine Delphi 4-IDE anschaue, hat TLabel kein OnMouseEnter/OnMouseLeave-Ereignis, das notwendig wäre, um den Cursor in eine "Hand" zu ändern, wenn der Benutzer über den "Link" fährt.
Es das Ereignis OnClick hat, mit dem Sie die Web-Benutzer-Browser starten verdrahten kann:
Delphi 2009. Vielleicht war Maus über den falschen Begriff. In den Eigenschaften für das TLabel in D2009 können Sie angeben, welcher Cursor für dieses Label verwendet werden soll. – Rowan
Man kann Registerkarte und den Fokus auf Links in einem Browser geben. Daher würde ich in Erwägung ziehen, für diese Aufgabe ein fenstergesteuertes Steuerelement (wie eine vom Besitzer gezeichnete TButton) zu verwenden.
Ja, das war, was ich gesucht habe. Ich werde es in ein oder zwei Tagen akzeptieren, um sicherzustellen, dass niemand andere Ideen hat. Prost. – Rowan
Sollte "SW_SHOWNORMAL" sein. –
Vergessen Sie nicht, "uses ShellApi;" hinzuzufügen. –