关于菜单。修改企业QQ相关

Forms/AboutFrm.dfm

@@ -150,22 +150,6 @@ object AboutForm: TAboutForm
     OnMouseEnter = lblWebSite2MouseEnter
     OnMouseLeave = lblWebSite2MouseLeave
   end
-  object lblEmail2: TLabel
-    Left = 240
-    Top = 235
-    Width = 54
-    Height = 12
-    Caption = '800003850'
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -12
-    Font.Name = 'smartSimSun'
-    Font.Style = []
-    ParentFont = False
-    OnClick = lblEmail2Click
-    OnMouseEnter = lblEmail2MouseEnter
-    OnMouseLeave = lblEmail2MouseLeave
-  end
   object lblCompany: TLabel
     Left = 224
     Top = 129
@@ -186,6 +170,13 @@ object AboutForm: TAboutForm
     Height = 12
     Caption = #36719#20214#21517#31216#65306
   end
+  object lblQQ: TLabel
+    Left = 240
+    Top = 237
+    Width = 54
+    Height = 12
+    Caption = '800003850'
+  end
   object Panel1: TPanel
     Left = 8
     Top = 8

Forms/AboutFrm.pas

@@ -21,7 +21,6 @@ type
     lblPhone: TLabel;
     Label15: TLabel;
     lblWebSite2: TLabel;
-    lblEmail2: TLabel;
     lblCompany: TLabel;
     Panel1: TPanel;
     Image1: TImage;
@@ -29,6 +28,7 @@ type
     Button1: TButton;
     Panel3: TPanel;
     lblSoftware: TLabel;
+    lblQQ: TLabel;
     procedure lblWebSite2Click(Sender: TObject);
     procedure lblWebSite2MouseEnter(Sender: TObject);
     procedure lblWebSite2MouseLeave(Sender: TObject);