怎样在窗体加入链接，邮箱

来源：互联网发布：好一点的音响知乎编辑：程序博客网时间：2024/05/03 21:41

窗体添加一个label;uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject);begin  label1.Transparent := true;  label1.Caption := 'www.baidu.com';  label1.Font.Color := clBlue;  label1.Font.Size := 14;  label1.Font.Style := [fsUnderline];  label1.Cursor := crDefault;end;procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  label1.Cursor := crHandPoint;  label1.Font.Style := [];  label1.Font.Color := clRed;end;procedure TForm1.Label1MouseLeave(Sender: TObject);begin  label1.Cursor := crDefault;  label1.Font.Style := [fsUnderline];  label1.Font.Color := clBlue;end;procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);end;

==========================================

这里报Undeclared identifier:ShellExecute,

在窗体的uses 里加入：Shellapi便可以解决。

0 0