Come faccio a fare un tlabel come un collegamento ipertestuale a Delphi?

Question

Come faccio a fare un tlabel come un collegamento ipertestuale a Delphi?

Nota: non sono interessato a utilizzare Tlinklabel a causa di problemi di compatibilità all'indietro.

Answer 1

Coloralo blu, imposta lo stile per sottolineare e aggiungere un evento 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;

Answer 2

Dipende da ciò che hai bisogno dei tuoi collegamenti ipertestuali. Avrei solo ...

• Imposta il colore del carattere su blu
• Usa gli eventi onmouse [Enter | Leave | Sposta] per applicare adeguatamente lo stile sottolineabile al carattere
• Usa l'evento OnClick per generare un browser e cambiare il colore del carattere, come desiderato.

Answer 3

Quale versione di Delphi stai usando? Guardando il mio IDE Delphi 4, Tlabel non ha un evento onMouseenter/OnMouseLeave, che sarebbe necessario cambiare il cursore in una "mano" quando l'utente si libra sul "link".

Ha l'evento OnClick, che puoi collegare per avviare il browser Web dell'utente:

Come portare il browser anteriore o di lancio a Delphi

Answer 4

Si può fare scheda e dare attenzione ai collegamenti in un browser. Pertanto prenderei in considerazione l'utilizzo di un controllo finestra (come un tbutton disegnato dal proprietario) per questo compito.