[Delphi] Links

[tia86]

come è possibile creare delle label ke fungano da link, in modo ke quando l'utente ci clicca sopra parte il browser e gli mostra la pagina?

[alka]

Se intendi utilizzare spesso un'etichetta del genere, potresti creare un nuovo controllo visuale che erediti da TLabel oppure semplicemente gestire l'evento OnClick di una comune Label.

Nel metodo di gestione dell'evento OnClick, devi richiamare la funzione ShellExecute per aprire l'indirizzo richiesto, magari memorizzato nella Caption, utilizzando il browser predefinito.

Un esempio di codice:

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', 'http://www.abls.it', nil, nil, SW_SHOWNORMAL);
end;

Per poter utilizzare la funzione ShellExecute, devi includere la unit ShellAPI nella clausola uses del modulo in cui ne fai uso.

Per un effetto più completo, potresti modificare la proprietà Cursor del controllo Label nel valore "crHandPoint", in modo che venga visualizzata una mano quando il cursore del mouse si sposta sull'etichetta.

Ciao!