Hola
Tambien usando el Evento OnClick de cualquier Label puedes usar la siguiente
sentencia:
ShellExecute(Handle,'open','mailto:lgarcia@scu.trasval.cu',nil, nil,SW_SHOW);
Debes en el uses utilizar ShellApi
En la propiedad cursor del Label escoger crHandPoint
En la propiedad Font/Style fsUnderline
En la propiedad Font/Color clMenuHighLight
Las tres ultimas cosas son para que aparente un link de una pagina Web
Saludos
Luis Garcia
_____________________________
La mejor manera de decir es hacer
|