亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? 050.htm

?? Delphi基礎知識講座
?? HTM
?? 第 1 頁 / 共 3 頁
字號: 
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎教程-->第十九章　Delphi自定義部件開發（四）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎教程 第十九章　Delphi自定義部件開發（四）">
<META NAME="description" CONTENT=" - DELPHI基礎教程 - 第十九章　Delphi自定義部件開發（四）">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋體"}
.tt2 {font: 12pt/15pt "宋體"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 background="bg.gif" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">

<TR>
<TD CLASS="tt3" VALIGN="top" width="8%"  background="bg.gif"><strong><A HREF="051.htm" ><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="049.htm" ><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>

<A HREF="index.html" ><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
<TD class="tt2" background="bg.gif" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第十九章　Delphi自定義部件開發（四）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<font face="Arial" size="3"><p>19.3.2 </font><font face="宋體" lang="ZH-CN"
size="3">創建圖形部件　</p>
</font><font face="Arial" size="3"><p></font><font face="宋體" lang="ZH-CN" size="3">圖形控制是一類簡單的部件。因為純圖形部件從不需要得到鍵盤焦點，所以它沒有也不要窗口句柄。包含圖形控制的應用程序用戶仍然可以用鼠標操作控制，但沒有鍵盤界面。</p>
<p>　　在本例中提供的圖形部件是</font><font face="Arial" size="3">TShape</font><font
face="宋體" lang="ZH-CN" size="3">。</font><font face="Arial" size="3">Shape</font><font
face="宋體" lang="ZH-CN" size="3">部件位于</font><font face="Arial" size="3">Component
Palette</font><font face="宋體" lang="ZH-CN" size="3">的</font><font face="Arial"
size="3">Additional</font><font face="宋體" lang="ZH-CN" size="3">頁。本例中的</font><font
face="Arial" size="3">Shape</font><font face="宋體" lang="ZH-CN" size="3">部件有所不同，因此稱其為</font><font
face="Arial" size="3">TSampleShape</font><font face="宋體" lang="ZH-CN" size="3">。</p>
<p>　　創建圖形部件需要下列三個步驟：</p>
<p>　　●</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">創建和注冊部件</p>
<p>　　●</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">公布</font><font face="Arial" size="3">(publishing)</font><font face="宋體"
lang="ZH-CN" size="3">繼承的屬性</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">增加圖形功能</p>
<p>　</font><font face="Arial" size="3"></p>
<p>19.3.2.1 </font><font face="宋體" lang="ZH-CN" size="3">創建和注冊部件</p>
<p>　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">每個部件的創建都從相同的方式開始，在本例中如下：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">建立名為</font><font face="Arial"
size="3">Shapes</font><font face="宋體" lang="ZH-CN" size="3">的部件單元</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">從</font><font face="Arial" size="3">TGraphicControl
</font><font face="宋體" lang="ZH-CN" size="3">繼承，將新部件稱為</font><font
face="Arial" size="3">TSampleShape</p>
<p></font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">在</font><font face="Arial" size="3">Component
Palette</font><font face="宋體" lang="ZH-CN" size="3">的</font><font face="Arial"
size="3">Samples</font><font face="宋體" lang="ZH-CN" size="3">頁上注冊</font><font
face="Arial" size="3">TSampleShape</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>unit Shapes</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>intertace</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>use SysUtils, WinTypes, WinProcs, Messages, Classes,</p>
<p>Graphics</font><font face="宋體" lang="ZH-CN" size="3">，</font><font face="Arial"
size="3">Controls</font><font face="宋體" lang="ZH-CN" size="3">，</font><font
face="Arial" size="3">Forms;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>type</p>
<p>TSampleShape=class(TGraphicControl)</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>implementation</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>procedure Register;</p>
<p>begin</p>
<p>RegisterComponents('Samples'</font><font face="宋體" lang="ZH-CN" size="3">，</font><font
face="Arial" size="3">[TSampleShape]);</p>
<p>end;</p>
<p>　</p>
<p>end.</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>19.3.2.2 </font><font face="宋體" lang="ZH-CN" size="3">公布繼承的屬性</p>
<p>　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">一旦決定了部件類型，就能決定在父類的</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">部分聲明哪些屬性和事件能為用戶可見。</font><font
face="Arial" size="3">TGraphicControl</font><font face="宋體" lang="ZH-CN" size="3">已經公布了所有作為圖形控制的屬性，因此，只需公布響應鼠標和拖放事件的屬性。</p>
<p>　</p>
<p>　</font><font size="3"> </font><font face="Arial" size="3">type</p>
<p>TSampleShape=class(TGraphicControl)</p>
<p>published</p>
<p>property DragCursor;</p>
<p>property DragMode;</p>
<p>property OnDragDrop;</p>
<p>property OnDragOver;</p>
<p>property ONEndDrag;</p>
<p>property OnMouseDown;</p>
<p>property OnMouseMove;</p>
<p>property OnMouseup;</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">這樣，該</font><font face="Arial"
size="3">Shape</font><font face="宋體" lang="ZH-CN" size="3">控制具有通過鼠標和拖放與用戶交互的能力。</p>
<p>　</font><font face="Arial" size="3"></p>
<p>19.3.2.3 .</font><font face="宋體" lang="ZH-CN" size="3">增加圖形能力</p>
<p>　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">一旦你聲明了圖形部件并公布了繼承的屬性，就可以給部件增加圖形功能。這時需要知道兩點：</p>
<p>　　●</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">決定畫什么</p>
<p>　　●</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">怎樣畫部件圖形</p>
<p>　</p>
<p>　</font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">在</font><font
face="Arial" size="3">Shape</font><font face="宋體" lang="ZH-CN" size="3">控制的例子中，需要增加一些能使用戶在設計時改變形狀的屬性。</p>
<p>　</font><font face="Arial" size="3"></p>
<p>1. </font><font face="宋體" lang="ZH-CN" size="3">決定畫什么</p>
<p>　　圖形部件通常都具有改變外觀的能力，圖形控制的外觀取決于其某些屬性的結合，例如</font><font
face="Arial" size="3">Gauge</font><font face="宋體" lang="ZH-CN" size="3">控制具有決定其形狀、方向和是否圖形化地顯示其過程的能力。同樣，</font><font
face="Arial" size="3">Shape</font><font face="宋體" lang="ZH-CN" size="3">控制也應有決定顯示各種形狀的能力</font><font
face="Arial" size="3">.</p>
<p></font><font face="宋體" lang="ZH-CN" size="3">給予</font><font face="Arial"
size="3">Shape</font><font face="宋體" lang="ZH-CN" size="3">控制這種能力，增加名為</font><font
face="Arial" size="3">Shape</font><font face="宋體" lang="ZH-CN" size="3">的屬性。這需要下列三步：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">聲明屬性類型</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">聲明屬性</font><font face="Arial"
size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">編寫實現方法</font><font
face="Arial" size="3"></p>
<p></font>　<font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　⑴</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">聲明屬性類型</p>
<p>　　當聲明一個用戶自定義類型的屬性時，必須首先聲明屬性類型。最普通地用于屬性的自定義類型是枚舉類型。</p>
<p>　　對</font><font face="Arial" size="3">Shape</font><font face="宋體"
lang="ZH-CN" size="3">控制來說，需要聲明一個該控制能畫形狀的枚舉，下面是枚舉類型的聲明：</p>
<p>　</font><font face="Arial" size="3"></p>
<p>type</p>
<p>TSampleShapeType=(sstRectangle, sstSquare, sstRoundRect, </p>
<p>sstRoundSquare, sstEllipse, sstCircle);</p>
<p>TSampleShape = class(TGraphicControl)</p>
<p>end; </p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">這樣，就可以用該類型來聲明屬性。</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">⑵</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">聲明屬性</font><font face="Arial"
size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">當聲明一個屬性時，通常需要聲明私有域來保存屬性值，然后描述讀寫屬性值的方法。</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">對于</font><font face="Arial"
size="3">Shape</font><font face="宋體" lang="ZH-CN" size="3">控制，將聲明一個域保存當前形狀，然后聲明一個屬性通過方法調用來讀寫域值。</p>
<p>　</font><font face="Arial" size="3"></p>
<p>type</p>
<p>TSampleShape=class(TGrahpicControl)</p>
<p>private</p>
<p>FShape: TSampleShapeType;</p>
<p>procedure SetShape(value: TSampleShapeType);</p>
<p>published</p>
<p>property Shape: TSampleShapeType read FShape write SetShape;</p>

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
色综合网色综合| 国产清纯在线一区二区www| 欧美精品一区二区在线观看| 国产欧美日韩视频在线观看| 亚洲一区二区四区蜜桃| 国产成人三级在线观看| 51精品视频一区二区三区| 中文字幕在线不卡国产视频| 狠狠色2019综合网| 7777女厕盗摄久久久| 亚洲女性喷水在线观看一区| 国产在线视视频有精品| 91精品国产综合久久福利| 一区二区三区中文字幕在线观看| 激情成人综合网| 欧美久久久久久蜜桃| 伊人性伊人情综合网| 丰满亚洲少妇av| 精品女同一区二区| 免费日韩伦理电影| 欧美丝袜丝nylons| 亚洲综合久久av| 91视频免费播放| 欧美极品xxx| 久久99精品国产麻豆婷婷| 7777精品久久久大香线蕉 | 亚欧色一区w666天堂| av电影天堂一区二区在线| 国产精品五月天| 成人一区在线观看| 国产欧美日韩另类视频免费观看| 黄色日韩三级电影| 久久午夜免费电影| 精品午夜久久福利影院| 精品福利二区三区| 久久超级碰视频| 久久综合网色—综合色88| 激情综合一区二区三区| 久久综合九色综合97_久久久| 精品无人码麻豆乱码1区2区| 日韩精品一区在线| 国产精品 欧美精品| 日本一区二区三区在线不卡| 国产一区二区美女| 亚洲国产精品v| kk眼镜猥琐国模调教系列一区二区| 国产片一区二区| 成人伦理片在线| 一区二区三区日韩欧美精品| 欧美亚男人的天堂| 亚洲国产一区二区三区青草影视| 欧美日韩一区三区| 美女mm1313爽爽久久久蜜臀| 久久久久久久av麻豆果冻| 成人毛片老司机大片| 亚洲一区在线观看免费观看电影高清| 在线观看欧美黄色| 蜜桃一区二区三区在线观看| 久久久夜色精品亚洲| 成人av先锋影音| 亚洲亚洲人成综合网络| 日韩精品中文字幕一区二区三区 | 国产精品三级电影| 日本韩国欧美一区二区三区| 五月婷婷色综合| 国产亲近乱来精品视频| 欧美在线制服丝袜| 国产精品18久久久久久久久| 亚洲欧美中日韩| 91精品国产色综合久久ai换脸| 国产真实乱子伦精品视频| 亚洲欧洲综合另类在线| 欧美一区二区福利在线| 播五月开心婷婷综合| 亚洲高清不卡在线观看| 国产日产欧美精品一区二区三区| 色婷婷精品大在线视频| 麻豆91在线看| 亚洲尤物视频在线| 国产欧美一区二区在线观看| 欧美三级资源在线| 99久久精品费精品国产一区二区| 日韩制服丝袜av| 中文字幕一区二区三| 欧美电影免费观看高清完整版| 成人精品小蝌蚪| 美国十次综合导航| 亚洲精品第一国产综合野| 久久综合久久99| 精品视频资源站| 99re视频精品| 国产91精品一区二区麻豆网站| 青青草伊人久久| 亚洲夂夂婷婷色拍ww47| 国产精品伦理在线| 久久伊人蜜桃av一区二区| 欧美另类高清zo欧美| 在线视频国内自拍亚洲视频| 成人在线视频一区| 国产揄拍国内精品对白| 美女视频一区二区三区| 亚洲成人一区二区在线观看| 亚洲视频中文字幕| 国产日韩欧美精品一区| 精品美女一区二区| 欧美一区二区三区白人| 777亚洲妇女| 欧美日韩国产综合一区二区| 91捆绑美女网站| 91同城在线观看| 97久久超碰国产精品| 99国产精品国产精品毛片| 高清国产一区二区三区| 高清国产一区二区| 成人激情小说网站| 99久久精品一区| 99re66热这里只有精品3直播 | 久久久久久夜精品精品免费| 日韩一区二区影院| 日韩午夜电影av| 日韩免费一区二区| 日韩免费性生活视频播放| 欧美mv日韩mv| 久久久噜噜噜久久人人看| 国产欧美一区二区三区网站| 欧美激情一区二区在线| 亚洲欧美综合网| 一区二区三区中文字幕精品精品| 亚洲一区电影777| 日本亚洲一区二区| 国产在线观看一区二区| 成人免费高清在线观看| 色综合久久99| 91精品国产全国免费观看| 精品久久久久久久久久久院品网| 久久亚区不卡日本| 亚洲欧洲性图库| 亚洲超碰精品一区二区| 美女视频黄久久| 成人精品小蝌蚪| 欧美日韩精品三区| 欧美va在线播放| 亚洲欧美一区二区在线观看| 亚洲国产精品久久艾草纯爱| 男女男精品网站| 成人av综合在线| 精品动漫一区二区三区在线观看 | 欧美三级日韩三级| 欧美v亚洲v综合ⅴ国产v| 国产精品天干天干在观线 | 国产精品拍天天在线| 一区二区三区蜜桃| 国内精品伊人久久久久影院对白| 成人三级伦理片| 欧美精品黑人性xxxx| 国产日产欧美一区二区视频| 一区二区三区视频在线观看 | 亚洲国产欧美另类丝袜| 韩国一区二区三区| 在线视频国内自拍亚洲视频| 337p日本欧洲亚洲大胆色噜噜| 亚洲精品高清视频在线观看| 免费成人在线视频观看| 91蝌蚪porny| 久久嫩草精品久久久久| 丝袜脚交一区二区| eeuss鲁片一区二区三区| 日韩欧美一级二级三级久久久| 日韩伦理av电影| 国产一区二区美女| 666欧美在线视频| 亚洲日本va午夜在线电影| 国产一区二区在线免费观看| 欧美三级在线播放| 亚洲欧洲美洲综合色网| 国产乱对白刺激视频不卡| 欧美麻豆精品久久久久久| 亚洲色图在线视频| 国产精品亚洲成人| 欧美va亚洲va香蕉在线| 丁香婷婷综合网| 精品国产青草久久久久福利| 亚洲福利一区二区| 欧美在线免费观看亚洲| 亚洲啪啪综合av一区二区三区| 国产在线播放一区二区三区| 欧美一级黄色大片| 日韩高清中文字幕一区| 欧美日韩在线观看一区二区| 亚洲免费色视频| 91色porny| 亚洲女与黑人做爰| 91蜜桃传媒精品久久久一区二区| 国产精品萝li| 成人av免费在线观看| 欧美国产一区视频在线观看| 国产一区二区三区高清播放| 精品女同一区二区| 国产美女在线观看一区| 日本一区二区三区国色天香 |