如何在窗体上作出一个邮箱地址的超链接？
我的邮箱 在窗体上显示是一个超链接。
如：XXXXX@163.com

[解决办法]
加一个Label

C/C++ code

void __fastcall TForm1::Label1Click(TObject *Sender)     {         ShellExecute(             Handle,             "open",             "mailto:XXXXl@163.com",             NULL,             NULL,             SW_SHOW           );     }
[解决办法]
C/C++ code
void __fastcall TForm1::FormCreate(TObject *Sender){    Label1->Font->Style = Label1->Font->Style << fsUnderline;    Label1->Font->Color = clBlue;    Label1->Cursor = crHandPoint;    Label1->Caption = "info@ccrun.com";    Label1->Hint = "给我们写信";    Label1->ShowHint = true;     }//---------------------------------------void __fastcall TForm1::Label1Click(TObject *Sender){    ShellExecute(NULL, "Open", AnsiString().sprintf(            "Mailto:%s", Label1->Caption).c_str(), "", "", SW_SHOW);}
[解决办法]
//Label 设计
lblMail->Caption = "skysonya@sohu.com";

//---------------------------------------
//邮箱
void __fastcall TfrmMain::lblMailClick(TObject *Sender)
{
   ShellExecute(Handle,NULL,"mailto:skysonya@sohu.com?subject=关于 *** 的建议和意见",NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------
void __fastcall TfrmMain::lblMailMouseLeave(TObject *Sender)
{
   lblMail->Font->Color=clBlack;
}
//---------------------------------------
void __fastcall TfrmMain::lblMailMouseEnter(TObject *Sender)
{
   lblMail->Font->Color=clBlue;
}
//---------------------------------------
[解决办法]
//Lable 鼠标Leave事件 
//--------------------------------------- 
void __fastcall TfrmMain::lblMailMouseLeave(TObject *Sender)  
{  
   lblMail->Font->Color=clBlack;  
}  
//Lable 鼠标Enter事件 
//--------------------------------------- 
void __fastcall TfrmMain::lblMailMouseEnter(TObject *Sender)  
{  
   lblMail->Font->Color=clBlue;  
}  
//---------------------------------------
[解决办法]
都是高手~~ 学习了
[解决办法]
void __fastcall TForm1::Label1Click(TObject *Sender)  
 {  
     ShellExecute(  
         Handle,  
         "open",  
         "mailto:XXXXl@163.com",  
         NULL,  
         NULL,  
         SW_SHOW  
       );  
 }  

[解决办法]
呵呵接分，先开始看错了，以为是在窗体的CAPTION上添加呢？
[解决办法]
void __fastcall TForm1::Label1Click(TObject *Sender)  
 {  
     ShellExecute(  
         Handle,  
         "open",  
         "mailto:XXXXl@163.com",  
         NULL,  
         NULL,  
         SW_SHOW  
       );  
 }  

---------------------
正解！！！！