Label para enviar un email  

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 29/01/00

Truco accedido 99 veces

 


Pon esto en el OnClick de cualquier Label


 procedure TForm1.Label1Click(Sender: TObject);
 begin
  ShellExecute(GetDesktopWindow(),
                 nil,
                 pChar('mailto:'+
                 TLabel(Sender).Caption),
                 nil,
                 nil,
                 SW_SHOWNORMAL);
 end;



Y aņade 'ShellApi' en el uses de la form...




Actualizado el 29/01/2000 (Faltaba indicar el uses...)