PDA

Visualizza la versione completa : [Delphi] Links


tia86
22-10-2003, 22:53
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?



:ciauz:

alka
23-10-2003, 02:20
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! :ciauz:

Loading