窗体添加一个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;
怎样在DELPHI窗体上添加链接
最新推荐文章于 2017-06-16 10:26:43 发布