{"id":469,"date":"2023-05-11T09:24:52","date_gmt":"2023-05-11T01:24:52","guid":{"rendered":"https:\/\/www.cuishaofeng.com\/?p=469"},"modified":"2024-10-22T14:41:05","modified_gmt":"2024-10-22T06:41:05","slug":"%e3%80%90delphi-%e3%80%91stylecontrols%e7%bb%84%e4%bb%b6-%e5%ad%a6%e4%b9%a0%e7%ac%94%e8%ae%b0","status":"publish","type":"post","link":"https:\/\/www.cuishaofeng.com\/?p=469","title":{"rendered":"\u3010Delphi \u3011StyleControls\u7ec4\u4ef6 \u5b66\u4e60\u7b14\u8bb0"},"content":{"rendered":"
<\/div>\n

\u4e00.TscGPButton\u6309\u94ae<\/p>\n\n\n\n

1.\u6309\u94ae\u5916\u89c2\u57fa\u672c\u4e0a\u90fd\u5728options\u91cc\u8bbe\u7f6e.<\/p>\n\n\n\n

\u3000\u3000Normal\u5f00\u5934\u7684\u5c5e\u6027: \u6309\u94ae\u5e38\u6001\u4e0b\u7684\u6548\u679c\u8bbe\u7f6e;<\/p>\n\n\n\n

\u3000\u3000HOT\u5f00\u5934(\u6216\u5305\u542b)\u7684\u5c5e\u6027: \u9f20\u6807\u505c\u5728\u6309\u94ae\u4e0a\u65f6\u7684\u6548\u679c\u8bbe\u7f6e;<\/p>\n\n\n\n

\u3000\u3000Frame\u5f00\u5934\u7684\u5c5e\u6027: \u8fb9\u6846\u8bbe\u7f6e;<\/p>\n\n\n\n

\u3000\u3000pressed\u5f00\u5934(\u6216\u5305\u542b)\u7684\u5c5e\u6027: \u4e0e\u70b9\u51fb\u6709\u5173\u7684\u6548\u679c\u8bbe\u7f6e;<\/p>\n\n\n\n

\u3000\u3000Font\u5f00\u5934\u7684\u5c5e\u6027: \u5b57\u4f53\u6548\u679c\u8bbe\u7f6e;<\/p>\n\n\n\n

\u3000\u3000Disabled\u5f00\u5934(\u6216\u5305\u542b)\u7684\u5c5e\u6027: \u6309\u94ae\u5931\u53bb\u7126\u70b9\u65f6\u7684\u6548\u679c\u8bbe\u7f6e;<\/p>\n\n\n\n

\u3000\u3000Focused\u5f00\u5934\u7684\u5c5e\u6027:\u6309\u94ae\u83b7\u53d6\u7126\u70b9\u65f6\u7684\u6548\u679c\u8bbe\u7f6e;<\/p>\n\n\n\n

\u3000\u3000\u5e26Alpha\u7684\u5c5e\u6027: \u4e0e\u900f\u660e\u5ea6\u6709\u5173,255\u4e3a\u4e0d\u900f\u660e,0\u4e3a\u900f\u660e;<\/p>\n\n\n\n

\u3000\u3000shap\u5f00\u5934\u7684\u5c5e\u6027:\u8bbe\u7f6e\u6309\u952e\u7684\u6837\u5f0f;<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u6e10\u53d8\u8bbe\u7f6e:<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u5982\u679c\u6309\u94ae\u53c2\u4e0e\u5206\u7ec4\u8bbe\u7f6e,\u9700\u8981\u8bbe\u7f6eShapeStyle\u5c5e\u6027\u4e2d\u7684 scgpSegmentedLeft\u00a0 \/\u00a0\u00a0 scgpSegmentedRight \u00a0 \/\u00a0 scgpSegmentedMiddle(\u53ef\u4ee5\u67090\u4e2a\u4ee5\u4e0a)<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

2.\u591a\u4e2a\u6309\u94ae\u8bbe\u7f6e\u4e86GroupIndex\u5206\u7ec4,\u5219popupmenu\u5c5e\u6027\u65e0\u6548.\u53ea\u80fd\u901a\u8fc7\u4ee3\u7801\u89e6\u53d1.\u53e6\u5916,\u5f53\u6309\u94ae\u5904\u4e8e\u6fc0\u6d3b\u72b6\u6001\u65f6,\u65e0\u6cd5\u518d\u6b21\u89e6\u53d1click\u6307\u4ee4.<\/p>\n\n\n\n

3.\u5982\u679c\u8bbe\u7f6e\u4e86\u56fe\u6807,spacing \u53ef\u4ee5\u8bbe\u7f6e\u56fe\u6807\u4e0ecaption\u4e4b\u95f4\u7684\u8ddd\u79bb.Layout\u53ef\u4ee5\u8bbe\u7f6e\u56fe\u6807\u5c55\u793a\u7684\u4f4d\u7f6e;<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u00a04.badge\u5c5e\u6027\u53ef\u4ee5\u505a\u51fa\u89d2\u6807\u6548\u679c<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n
\"\"<\/figure>\n\n\n\n

\u4e8c.TscGPEdit\u6587\u672c\u8f93\u5165\u6846<\/strong><\/p>\n\n\n\n

1.\u8bbe\u7f6e\u597dButtonImages\u540e,\u53ef\u540c\u4ee5\u65f6\u8bbe\u7f6eLeftButton\u548cRightButton,\u53ef\u7528\u5bf9\u5e94\u7684OnLeftClick\u548cOnRightClick\u8fdb\u884c\u4e8b\u4ef6\u5904\u7406.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u5982\u679c\u6ca1\u6709\u8bbe\u7f6eimages,\u4e5f\u53ef\u4ee5\u8bbe\u7f6eLeftButton\u548cRightButton\u5c5e\u6027\u4e0b\u7684Kind\u5c5e\u6027,\u4f7f\u7528\u7cfb\u7edf\u81ea\u5e26\u7684\u56fe\u6807.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

2.\u5982\u679c\u5acc\u5f03\u56fe\u6807\u8fc7\u5927,\u53ef\u4ee5\u8bbe\u7f6e\u4ee5\u4e0b\u51e0\u4e2a\u5c5e\u6027.\u4e00\u822c\u53ea\u8bbe\u7f6e bottom \u548c top \u8fd9\u4e24\u4e2a\u5c5e\u6027.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

3.\u540c\u6837\u7684,\u5927\u90e8\u5206\u6548\u679c\u8bbe\u7f6e,\u90fd\u5305\u542b\u5728\u4e86Options\u91cc.\u8bbe\u7f6e\u65b9\u6cd5\u4e0e\u6309\u94ae\u7684\u8bbe\u7f6e\u65b9\u6cd5\u5927\u540c\u5c0f\u5f02<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

4.PrompTtext\u53ef\u4ee5\u8bbe\u7f6e\u8f93\u5165\u6846\u7684\u9ed8\u8ba4\u6587\u672c:<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

 5.\u81ea\u5b9a\u4e49\u56fe\u6807\u7684\u65b9\u6cd5\u5982\u4e0b:<\/strong><\/p>\n\n\n\n

1.\u8bbe\u7f6eTscGPEdit – ButtonImages\u5173\u8054\u56fe\u6807\u96c6.<\/strong><\/p>\n\n\n\n

2.\u4ee5RightButton\u4e3a\u4f8b,\u8bbe\u7f6eKind\u5c5e\u6027\u4e3ascgpebCustom<\/strong><\/p>\n\n\n\n

3.\u6309\u9700\u6c42,\u8bbe\u7f6e<\/strong><\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u4e09.TscPasswordEdit\u5bc6\u7801\u6846<\/strong><\/p>\n\n\n\n

1.\u4e0eTscGPEdit\u6587\u672c\u8f93\u5165\u6846\u5dee\u4e0d\u591a,\u4f46\u662f\u5b83\u6ca1\u6709LeftButton\u548cRightButton\u5c5e\u6027,\u6709\u7684\u53ea\u662fPasswordBotton,\u5b83\u4e0d\u80fd\u81ea\u5b9a\u4e49\u56fe\u6807<\/strong>.\u5176\u6548\u679c\u662f : \u4e34\u65f6\u628a\u5bc6\u6587\u663e\u793a\u4e3a\u660e\u6587,\u5f53\u9f20\u6807\u5de6\u952e\u5f39\u8d77\u65f6,\u6062\u590d\u5bc6\u6587\u72b6\u6001<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u6548\u679c\u5982\u56fe:<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

2.\u5176\u4ed6\u8bbe\u7f6e\u8bf7\u53c2\u8003TscGPEdit\u6587\u672c\u6846\u8bbe\u7f6e<\/p>\n\n\n\n

\u56db.TscStyledForm\u7a97\u4f53UI\u7c7b,\u4e0d\u53ef\u89c1\u63a7\u4ef6.\u4f5c\u7528\u662f\u5728\u6807\u9898\u680f\u4e0a\u52a0\u4e00\u4e9b\u6309\u94ae\u548ctabs\u6807\u7b7e<\/strong><\/p>\n\n\n\n

\u91cd\u8981\u58f0\u660e:\u65b0\u9879\u76ee\u9ed8\u8ba4\u662fwindows\u6837\u5f0f,\u8fd9\u4e2a\u6837\u5f0f\u662f\u65e0\u6cd5\u4f53\u73b0\u51faTscStyledForm<\/strong>\u00a0\u6548\u679c\u7684,\u8981\u5728\u9009\u9879\u91cc,\u66f4\u6539\u4e3a\u975ewindows\u6837\u5f0f\u624d\u884c(\u5217\u8868\u91cc\u968f\u4fbf\u52fe\u51e0\u4e2a\u4f60\u559c\u6b22\u7684)<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

1.ButtonImages\u8bbe\u7f6e\u56fe\u6807\u96c6<\/p>\n\n\n\n

ButtonFont\u8bbe\u7f6e\u5b57\u4f53<\/p>\n\n\n\n

CaptionAlignment \u8bbe\u7f6e\u6807\u9898\u680f \u6807\u9898\u7684\u5bf9\u9f50\u65b9\u5f0f,\u5982\u679c\u4f7f\u7528\u9ed8\u8ba4\u7684\u5411\u5de6\u5bf9\u9f50,\u6807\u9898\u4f1a\u7d27\u968f\u5728\u6309\u94ae\u7ec4\u6216\u8005\u6807\u7b7e\u7ec4\u540e\u9762,\u5f88\u4e0d\u7f8e\u89c2.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

2.show\u8bbe\u7f6e\u5982\u56fe,\u8fd9\u91cc\u8bf4\u4e00\u4e0bShowStylesMenu,\u52fe\u9009\u540e,\u5f53\u7a0b\u5e8f\u8fd0\u884c\u65f6,\u53ef\u4ee5\u901a\u8fc7\u53f3\u952e\u6807\u9898\u680f,\u5c55\u73b0 Style –> \u76ae\u80a4\u5217\u8868 . \u4e2d\u7ed9\u7a0b\u5e8f\u5207\u6362\u76ae\u80a4.\u5982\u679c\u4f60\u89c9\u5f97\u4e0d\u65b9\u4fbf,\u8bf7\u5f80\u4e0b\u770b\u7b2c\u4e94\u70b9.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

3.Buttons: \u53cc\u51fb\u5f39\u51fa\u6309\u94ae\u5217\u8868.\u6240\u6709\u7684\u6309\u94ae\u589e\u5220\u4e0e\u5c5e\u6027\u8bbe\u7f6e\u90fd\u5728\u8fd9\u91cc\u64cd\u4f5c.\u5982\u679c\u8981\u52a8\u6001\u521b\u5efa\u6309\u94ae,\u8bb0\u5f97\u58f0\u660e var b1:TscNCButtonItem;<\/p>\n\n\n\n

\u4e3b\u8981\u8bbe\u7f6ecaption,position,imageIndex,spacing\u8fd9\u51e0\u4e2a\u5c5e\u6027.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u5982\u679c\u4f60\u60f3\u8bbe\u7f6e\u6309\u94ae\u95f4\u7684\u8ddd\u79bb,\u53ef\u4ee5\u8bbe\u7f6e<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u6548\u679c\u5982\u56fe:<\/p>\n\n\n\n

\u4e00\u5171\u8bbe\u7f6e\u4e86\u56db\u4e2a\u6309\u94ae,\u5176\u4e2d\u7b2c\u4e00\u4e2a\u8bbe\u7f6e\u4e86PopupMenu\u83dc\u5355,\u7b2c\u56db\u4e2a\u8bbe\u7f6e\u4e86\u53f3\u5bf9\u9f50,\u65e0\u6587\u672c.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

 4.Tabs: \u548cButtoms\u4e00\u6837,\u53cc\u51fb\u51fa\u73b0\u5217\u8868.\u6240\u6709\u7684\u6807\u7b7e\u589e\u5220\u4e0e\u5c5e\u6027\u8bbe\u7f6e\u90fd\u5728\u8fd9\u91cc\u64cd\u4f5c.<\/p>\n\n\n\n

tabsPosition : \u6807\u7b7e\u7684\u5bf9\u9f50\u65b9\u5f0f.\u9ed8\u8ba4\u662f\u9760\u5de6\u5bf9\u9f50.\u5982\u679c\u540c\u65f6\u8bbe\u7f6e\u6709\u6309\u94ae\u7ec4,\u5219\u6309\u94ae\u7ec4\u5728\u6700\u5de6,\u6807\u7b7e\u7ec4\u7d27\u8ddf\u5728\u6309\u94ae\u7ec4\u540e\u9762\u51fa\u73b0<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

tab\u7684\u5c5e\u6027\u8bbe\u7f6e\u975e\u5e38\u7b80\u5355:<\/p>\n\n\n\n

\u5982\u679c\u6709\u591a\u4e2a\u6807\u7b7e,\u53ef\u4ee5\u8bbe\u7f6e\u7edf\u4e00\u7684width\u6027,\u4e0d\u7136\u4f1a\u51fa\u73b0\u5bbd\u5ea6\u4e0d\u4e00\u81f4\u7684\u60c5\u51b5<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u6548\u679c\u56fe:<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u52a8\u6001\u521b\u5efa\u6807\u7b7e:<\/p>\n\n\n\n

var
t1: TscNCTabItem;
begin
t1 := scstyldfrm1.Tabs.Add;
t1.Caption := ‘Sheet’ + IntToStr(scstyldfrm1.Tabs.Count);
t1.Width := 60;
end;<\/p>\n\n\n\n

5.\u63a5\u4e0b\u6765\u8fd9\u4e2a\u7279\u6548\u5f88\u9177:\u8ba9\u7236\u7ea7\u7a97\u4f53\u663e\u793a\u4e3a\u6bdb\u73bb\u7483\u900f\u660e\u6a21\u5f0f(ShowModal\u6a21\u5f0f\u4e0b)<\/p>\n\n\n\n

\u65b0\u5efa\u4e00\u4e2a\u7a97\u4f53form2,\u8bbe\u7f6e\u4e3a\u53ef\u7528\u7a97\u4f53<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

form1\u91cc\u52a0\u4e2a\u6309\u94ae,\u52a0\u4e8b\u4ef6.<\/p>\n\n\n\n

uses unit2;\nprocedure TForm1.btn4Click(Sender: TObject);\nbegin\n  form2 := TForm2.Create(self);\n  scstyldfrm1.ShowClientInActiveEffect;\u3000\u3000\u3000\u3000\/\/\u8fd9\u91cc\u662f\u91cd\u70b9.\u8981\u5728\u7a97\u4f53\u663e\u793a\u524d,\u8bbe\u7f6e\u7279\u6548\n  Form2.ShowModal;\n  scstyldfrm1.HideClientInActiveEffect;\u3000\u3000\u3000\u3000\/\/\u7a97\u4f53\u663e\u793a\u540e,\u9690\u85cf\u7279\u6548\n\u3000Form2.free;\nend;\n\n<\/pre>\n\n\n\n
TscStyledForm\u4e2d\u7684 InActiveClienColor\u5c5e\u6027,\u7528\u6765\u8bbe\u7f6e\u7279\u6548\u989c\u8272.<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
 \u4e94.TscCombobox.\u505a\u4e00\u4e2a\u53ef\u4ee5\u66f4\u6539\u76ae\u80a4\u7684\u4e0b\u62c9\u6846.\u8fd9\u4e2a\u529f\u80fd,\u7528\u7cfb\u7edf\u81ea\u5e26\u7684\u63a7\u4ef6\u5c31\u53ef\u4ee5\u5b9e\u73b0,\u4e0d\u662f\u975e\u5f97\u8981\u7528\u7b2c\u4e09\u65b9.<\/p>\n\n\n\n
uses Vcl.Themes;\u3000\u3000\/\/\u76ae\u80a4\u5355\u5143
procedure TForm1.FormCreate(Sender: TObject);\nvar\n  i: Integer;\nbegin\n  for i := Low(TStyleManager.StyleNames) to High(TStyleManager.StyleNames) do\u3000\u3000\u3000\u3000\/\/TStyleManager\u6837\u5f0f\u7ba1\u7406\u5668,\u4e0d\u7528\u58f0\u660e.TStyleManager.StyleNames \u8fd4\u56de\u4e00\u4e2a\u76ae\u80a4\u6570\u7ec4.\n    scGPComboBox1.ListBox.Add(TStyleManager.StyleNames[i]);\nend;\n\nprocedure TForm1.scGPComboBox1Change(Sender: TObject);\nbegin\n  TStyleManager.TrySetStyle(scGPComboBox1.Items[scGPComboBox1.ItemIndex].Caption );\u3000\u3000\u3000\u3000\/\/TrySetStyle:\u8bbe\u7f6e\u76ae\u80a4\nend;<\/pre>\n\n\n\n
\u6548\u679c\u5982\u56fe:<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
 \u516d.TscGPPageControl<\/p>\n\n\n\n
1.\u5728TscGPPageControl \u63a7\u4ef6\u7a7a\u767d\u5904\u53f3\u952e,\u53ef\u65b0\u589e\u548c\u5220\u9664\u6807\u7b7e.\u4e5f\u53ef\u4ee5\u53cc\u51fbtabs\u5c5e\u6027,\u8c03\u51fatab\u7ba1\u7406\u5668\u8fdb\u884c\u8bbe\u7f6e.<\/p>\n\n\n\n
2.\u5207\u6362\u9875\u9762 : scGPPageControl1.ActivePage := \u76f4\u63a5\u5199\u9875\u9762Name;<\/p>\n\n\n\n
3.TscGPPageControl\u5168\u5c40\u8bbe\u7f6e,\u5927\u90e8\u5206\u5728TabOption\u91cc\u8fdb\u884c,\u8fd8\u6709\u5f88\u591a\u4e2a\u6027\u5316\u7684\u8bbe\u7f6e,\u4f60\u53ef\u4ee5\u6162\u6162\u53bb\u6478\u7d22.\u8fd9\u91cc\u6709\u4e2a\u6280\u5de7:<\/p>\n\n\n\n
\u5148\u786e\u5b9a\u4f60\u9700\u8981\u7684\u6837\u5f0f\u662f\u5168\u5c40\u7684\u5c5e\u6027,\u8fd8\u662f\u6807\u7b7e\u91cc\u7684\u5c5e\u6027,\u5982\u679c\u662f\u5168\u5c40,\u5c31\u627etabOption,\u6807\u7b7e\u5c31\u627etabs -> page<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
4.\u5982\u4f55\u9690\u85cfTscGPPageControl\u63a7\u4ef6\u7684\u6807\u7b7e\u5934?\u5206\u4e24\u6b65\u6765:<\/p>\n\n\n\n
1.\u8bbe\u7f6eFrameWidth\u4e3a0<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
2.\u8bbe\u7f6eTabHeight\u4e3a0.\u5b8c\u6210!<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
3.\u52a8\u6001\u521b\u5efa\u6807\u7b7e(\u57fa\u4e8eFrame)<\/p>\n\n\n\n
\u5728\u6b64\u4e4b\u524d,\u8bf7\u5148\u4e86\u89e3\u4e00\u4e0bFrame\u7684Create\u539f\u7406\u00a0\u3000\u540e\u534a\u90e8\u5206<\/p>\n\n\n\n
\u5148\u770b\u8fd0\u884c\u56fe:<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u00a0\u4e3b\u7a97\u4f53\u8bbe\u8ba1\u56fe:<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
Frame\u8bbe\u8ba1\u56fe:<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u00a0\u4e0b\u9762\u662fFrame\u7684\u4ee3\u7801:<\/p>\n\n\n\n
unit Unit6;<\/p>\n\n\n\n
interface<\/p>\n\n\n\n
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls, scControls, scGPControls;<\/p>\n\n\n\n
type
TFrame6 = class(TFrame)
scGPPanel1: TscGPPanel;
Button1: TButton;
private
{ Private declarations }
public
constructor Create(AOwner: TComponent); override; \/\/\u4e0a\u9762\u94fe\u63a5\u6709\u4ecb\u7ecdFrame\u7684Create\u539f\u7406 \u3000
end;<\/p>\n\n\n\n
implementation<\/p>\n\n\n\n
{$R *.dfm}
uses
Unit5; \/\/\u5f15\u7528\u4e3b\u7a97\u4f53<\/p>\n\n\n\n
constructor TFrame6.Create(AOwner: TComponent);
begin
inherited Create(AOwner); \/\/\u4e0a\u9762\u94fe\u63a5\u6709\u4ecb\u7ecdFrame\u7684Create\u539f\u7406 \u3000
Self.Align := alClient; \/\/\u5982\u679c\u6ca1\u6709\u8fd9\u4e00\u53e5,frame\u5d4c\u8fdb\u53bb\u4e4b\u540e,\u4f1a\u4fdd\u6301\u539f\u6709\u5927\u5c0f.
Button1.Caption := ‘Frame’ + inttostr(Length(ArrayFrames) + 1); \/\/\u4fee\u6539Btn\u5c5e\u6027
end;<\/p>\n\n\n\n
end.<\/p>\n\n\n\n
\u4e3b\u7a97\u4f53\u7684\u4ee3\u7801:<\/p>\n\n\n\n
unit Unit5;<\/p>\n\n\n\n
interface<\/p>\n\n\n\n
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,  Vcl.StdCtrls, scControls, scGPPagers, Unit6, cxGraphics, cxControls,  cxLookAndFeels, cxLookAndFeelPainters, cxStyles, cxEdit, cxInplaceContainer,  cxVGrid, cxOI;<\/p>\n\n\n\n
type
TArrayFrames = array of TFrame; \/\/\u8bbe\u7f6e\u52a8\u6001\u6570\u7ec4\u7684\u6570\u636e\u7c7b\u578b<\/p>\n\n\n\n
TForm5 = class(TForm)
scGPPageControl1: TscGPPageControl;
sheet1: TscGPPageControlPage;
Button1: TButton;
Memo1: TMemo;
Frame61: TFrame6;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure scGPPageControl1Close(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure DeleteArrItem(var arr: TArrayFrames; Index: Integer);
private
{ Private declarations }
public
end;<\/p>\n\n\n\n
var
Form5: TForm5;
ArrayFrames: TArrayFrames; \/\/\u5168\u5c40\u6570\u7ec4<\/p>\n\n\n\n
implementation<\/p>\n\n\n\n
{$R *.dfm}<\/p>\n\n\n\n
\/\/\u521b\u5efa\u65b0\u6807\u7b7e
procedure TForm5.Button1Click(Sender: TObject);
var
NewTap: TscGPPageControlTab;
NewFrame: TFrame6;
begin
with scGPPageControl1 do
begin
NewTap := Tabs.Add; \/\/\u65b0\u589e\u6807\u7b7e
NewTap.Caption := ‘sheet’ + Tabs.Count.ToString; \/\/\u8bbe\u7f6e\u6807\u7b7e\u540d\u79f0<\/p>\n\n\n\n
NewFrame := TFrame6.Create(scGPPageControl1);\n \/\/\u8bbe\u7f6eFrame\u540d\u79f0,\u8fd9\u91cc\u4e00\u5b9a\u8981\u5199,\u56e0\u4e3a\u5b83\u6bcf\u6b21\u65b0\u589e\u90fd\u9ed8\u8ba4\u662fFrame\u7684Name, \u4f1a\u62a5\u9519\nNewFrame.Name := 'Frame' + IntToStr(NewFrame.Handle);\nNewFrame.Parent := NewTap.Page; \/\/\u628aframe\u5d4c\u8fdb\u6807\u7b7e\u91cc\n\/\/\u628a NewFrame\u8bb0\u5f55\u8fdb\u6570\u7ec4\u91cc,\u5f53\u5173\u95ed\u6807\u7b7e\u65f6,\u4ece\u6570\u7ec4\u91cc\u53d6\u51fa,\u5e76free  .\u6570\u7ec4\u7684Index\u503c\u4e0e\u6807\u7b7e\u7684index\u503c\u76f8\u540c\nSetLength(ArrayFrames, Length(ArrayFrames) + 1);\nArrayFrames[Length(ArrayFrames) + 1] := NewFrame;\n\/\/\u76d1\u6d4b\u6570\u7ec4\nMemo1.Lines.Add('ArrayFrames\u589e\u52a0:' + Length(ArrayFrames).ToString);<\/code><\/pre>\n\n\n\n
end;<\/p>\n\n\n\n
end;<\/p>\n\n\n\n
procedure TForm5.DeleteArrItem(var arr: TArrayFrames; Index: Integer);
var
len: Integer;
tempFrame: TFrame;
begin
len := Length(arr);
\/\/\u4e0d\u7528\u8003\u8651 Index =1 ,\u56e0\u4e3a\u4e0d\u80fd\u5220\u9664
if Index = len then
begin
SetLength(arr, len – 1);
Exit;
end;
\/\/\u5176\u5b83\u60c5\u51b5
tempFrame := arr[Index – 1];
tempFrame.Free;
\/\/\u628a\u5c06\u8981\u5220\u9664\u7684\u5143\u7d20\u79fb\u5230\u6700\u540e,\u7136\u540e\u91cd\u65b0\u8bbe\u7f6e\u5b83\u7684\u957f\u5ea6,\u4ee5\u5b9e\u73b0\u5220\u9664\u7684\u76ee\u7684
\/\/\u5173\u4e8eMove\u4e0esizeOf\u8bf7\u770b\u4e0b\u9762\u804a\u5929\u8bb0\u5f55
Move(arr[Index + 1], arr[Index], (len – Index) * SizeOf(arr[0]));
SetLength(arr, len – 1);<\/p>\n\n\n\n
end;<\/p>\n\n\n\n
procedure TForm5.FormCreate(Sender: TObject);
begin
setLength(ArrayFrames, 1); \/\/\u81ea\u5e26\u4e00\u4e2a\u4e3b\u9875\u4e14\u4e0d\u80fd\u5220\u9664
ArrayFrames[0] := Frame61; \/\/\u628a\u4e3b\u9875\u52a0\u8fdb\u6570\u7ec4
end;<\/p>\n\n\n\n
\/\/\u6807\u7b7e\u7684\u5173\u95ed\u4e8b\u4ef6
procedure TForm5.scGPPageControl1Close(Sender: TObject; var CanClose: Boolean);
var
i, j: integer;
begin
CanClose := False; \/\/\u8bbe\u7f6e\u6210False\u624d\u80fd\u5220\u9664
with scGPPageControl1 do
begin
i := GetPageIndex(ActivePage);
\/\/\u5220\u9664\u5143\u7d20\u534a\u91ca\u653efree
DeleteArrItem(ArrayFrames, i + 1);
\/\/\u76d1\u6d4b\u6570\u7ec4
Memo1.Lines.Add(‘ArrayFrames\u5220\u9664:’ + Length(ArrayFrames).ToString);
tabs.Delete(i); \/\/\u5220\u9664\u6807\u7b7e
FindPriorTab; \/\/\u6fc0\u6d3b\u4e0a\u4e00\u4e2a\u6807\u7b7e
end;
end;<\/p>\n\n\n\n
end.<\/p>\n\n\n\n
\u5173\u4e8emove\u51fd\u6570\u4e0esizeOf\u51fd\u6570,\u611f\u8c22\u7fa4\u91cc\u5927\u4f6c\u7684\u6307\u70b9:<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\"\"<\/figure>\n","protected":false},"excerpt":{"rendered":"
\u4e00.TscGPButton\u6309\u94ae 1.\u6309\u94ae\u5916\u89c2\u57fa\u672c\u4e0a\u90fd\u5728options\u91cc\u8bbe\u7f6e. \u3000\u3000Normal\u5f00\u5934\u7684\u5c5e\u6027: \u6309\u94ae\u5e38\u6001\u4e0b\u7684\u6548\u679c\u8bbe\u7f6e; \u3000\u3000HOT\u5f00\u5934(\u6216\u5305\u542b)\u7684\u5c5e\u6027: \u9f20\u6807\u505c\u5728\u6309\u94ae\u4e0a\u65f6\u7684\u6548\u679c\u8bbe\u7f6e; \u3000\u3000Frame\u5f00\u5934\u7684\u5c5e\u6027: \u8fb9\u6846\u8bbe\u7f6e; \u3000\u3000…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[13],"tags":[74],"topic":[],"_links":{"self":[{"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=\/wp\/v2\/posts\/469"}],"collection":[{"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=469"}],"version-history":[{"count":1,"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=\/wp\/v2\/posts\/469\/revisions"}],"predecessor-version":[{"id":504,"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=\/wp\/v2\/posts\/469\/revisions\/504"}],"wp:attachment":[{"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=469"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=469"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=469"},{"taxonomy":"topic","embeddable":true,"href":"https:\/\/www.cuishaofeng.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftopic&post=469"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}