?? 023.htm

?? Delphi基礎(chǔ)知識講座
?? HTM
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎(chǔ)教程-->第九章　Delphi拖放編程</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎(chǔ)教程 第九章　Delphi拖放編程">
<META NAME="description" CONTENT=" - DELPHI基礎(chǔ)教程 - 第九章　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="024.htm" ><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="022.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%">
<p>　　拖放</font>(DragDrop)<font face="宋體" lang="ZH-CN">是</font>Windows<font
face="宋體" lang="ZH-CN">提供的一種快捷的操作方式。作為基于</font>Windows<font
face="宋體" lang="ZH-CN">的開發(fā)工具，</font>Delphi<font face="宋體" lang="ZH-CN">同樣支持拖放操作，而且開發(fā)應(yīng)用系統(tǒng)的拖放功能十分方便，真正體現(xiàn)了</font>Delphi<font
face="宋體" lang="ZH-CN">的強大功能和方便性。</p>
<p>　　</font>Delphi<font face="宋體" lang="ZH-CN">提供的所有控件</font>(Control<font
face="宋體" lang="ZH-CN">，即能獲得輸入焦點的部件</font>)<font face="宋體"
lang="ZH-CN">都支持拖放操作，并有相應(yīng)的拖放屬性、拖放事件和拖放方法。下面我們先介紹控件的拖放支持，而后再給出開發(fā)拖放操作的一般步驟和應(yīng)用實例。　</p>
</font><p align="center">9.1<font face="宋體" lang="ZH-CN">　控件的拖放支持　</p>
<p>　　拖放操作中控件可以分為源控件和目標控件兩類。絕大部分控件既可以作為源控件也可以作為目標控件。但也有一部分控件只能支持其中的一種。　</p>
</font><p>9.1.1 <font face="宋體" lang="ZH-CN">拖放屬性　</p>
<p>　　拖放屬性主要有兩個：</p>
<p>　　●</font> DragMode <font face="宋體" lang="ZH-CN">：</font> <font
face="宋體" lang="ZH-CN">拖動模式</p>
<p>　　●</font> DragCursor <font face="宋體" lang="ZH-CN">：</font> <font
face="宋體" lang="ZH-CN">拖動光標　</p>
<p>　　它們都是在拖放的源控件中設(shè)置。</font>DragMode<font face="宋體"
lang="ZH-CN">控制用戶在運行時間內(nèi)當在控件上按下鼠標時控件如何反應(yīng)。如果</font>DragMode<font
face="宋體" lang="ZH-CN">置為</font>dmAutomatic<font face="宋體" lang="ZH-CN">，那么當用戶在控件上按下鼠標時拖動自動開始；如果</font>DragMode<font
face="宋體" lang="ZH-CN">置為</font>dmManual(<font face="宋體" lang="ZH-CN">這是缺省值</font>)<font
face="宋體" lang="ZH-CN">，則將通過處理鼠標事件來判斷一個拖動是否可以開始。</p>
<p>　　</font>DragCursor<font face="宋體" lang="ZH-CN">用于選擇拖動時顯示的光標，缺省值是</font>CrDrag<font
face="宋體" lang="ZH-CN">，一般不要去修改它。在程序設(shè)計過程中通用的界面規(guī)范應(yīng)該得到開發(fā)者的尊重。但有時候為了特定的目的，開發(fā)者也可以把自己設(shè)計的光標賦給</font>DragCursor<font
face="宋體" lang="ZH-CN">。　</p>
</font><p>9.1.2 <font face="宋體" lang="ZH-CN">拖放事件　</p>
<p>　　拖放事件主要有三個：</p>
<p>　　●</font>OnDragOver<font face="宋體" lang="ZH-CN">：拖動經(jīng)過時激發(fā)</p>
<p>　　●</font>OnDragDrop<font face="宋體" lang="ZH-CN">：拖動放下時激發(fā)</p>
<p>　　●</font>OnEndDrop <font face="宋體" lang="ZH-CN">：拖動結(jié)束時激發(fā)　</p>
<p>　　前兩個事件由目標控件響應(yīng)，后一個事件由源控件響應(yīng)。</p>
<p>　　</font>OnDragOver<font face="宋體" lang="ZH-CN">事件最主要的功能是確定當用戶就地放下拖動時控件是否可以接受。它的參數(shù)包括：　</p>
</font><p>Source <font face="宋體" lang="ZH-CN">：</font> TObject<font face="宋體"
lang="ZH-CN">；　</font> {<font face="宋體" lang="ZH-CN">源控件}</font></p>
<p>X<font face="宋體" lang="ZH-CN">，</font>Y <font face="宋體" lang="ZH-CN">：</font>
Integer; {<font face="宋體" lang="ZH-CN">光標位置}</font></p>
<p>State <font face="宋體" lang="ZH-CN">：</font> TDragState<font face="宋體"
lang="ZH-CN">；</font> {<font face="宋體" lang="ZH-CN">拖動狀態(tài)}</font></p>
<p>var Accept <font face="宋體" lang="ZH-CN">：</font> Boolean {<font face="宋體"
lang="ZH-CN">能否接受}　</p>
<p>　　</font>TDragState<font face="宋體" lang="ZH-CN">是一個枚舉類型，表示拖放項目與目標控件的關(guān)系。　</p>
<p>　　</font> type</p>
<p>TDragState = (dsDragEnter, dsDragLeave, dsDragMove);</p>
<font face="宋體" lang="ZH-CN"><p>　　不同取值的意義如下表：</font></p>
<p><font face="宋體" lang="ZH-CN">表</font>9.1 DragState <font face="宋體"
lang="ZH-CN">的取值與意義</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━</p>
<p>　　取 值</font> <font face="宋體" lang="ZH-CN">意 義</p>
<p>───────────────────────────</p>
</font><p>dsDragEnter <font face="宋體" lang="ZH-CN">拖動對象進入一個允許拖動對象放下</p>
<p>的控件中。為缺省狀態(tài)。</p>
</font><p>dsDragLeave <font face="宋體" lang="ZH-CN">拖動對象離開一個允許拖動對象放下</p>
<p>的控件。</font></p>
<p>dsDragMove <font face="宋體" lang="ZH-CN">拖動對象在一個允許拖動對象放下的</p>
<p>控件內(nèi)移動。</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━
　</p>
<p>　　用戶可以利用提供的參數(shù)來確定放下的拖動是否可被接受，如：</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">判斷源控件類型：　</p>
<p>　　</font> Accept := Source is TLabel;</p>
<font face="宋體" lang="ZH-CN"><p>　　●</font> <font face="宋體" lang="ZH-CN">判斷源控件對象：　</p>
<p>　　</font> Accept := (Source = TabSet1); </p>
<font face="宋體" lang="ZH-CN"><p>　　●</font> <font face="宋體" lang="ZH-CN">判斷光標位置：</font></p>
<p><font face="宋體" lang="ZH-CN">見</font>(9.2),(9.3)<font face="宋體" lang="ZH-CN">中的例程。　</p>
</font><p><font face="宋體" lang="ZH-CN">●</font> <font face="宋體" lang="ZH-CN">判斷拖動狀態(tài)：　</p>
<p>　　</font> If (Source is TLabel) and (State = dsDragMove) then</p>
<font face="宋體" lang="ZH-CN"><p>　　</font> begin</p>
<p>source.DragIcon := ' New.Ico ';</p>
<p>Accept := True;</p>
<font face="宋體" lang="ZH-CN"><p>　　</font> end</p>
<font face="宋體" lang="ZH-CN"><p>　　</font> else</p>
<font face="宋體" lang="ZH-CN"><p>　　</font> Accept := False;</p>
<font face="宋體" lang="ZH-CN"><p>　　當</font>Accept=True<font face="宋體"
lang="ZH-CN">時，目標控件可以響應(yīng)</font>OnDragDrop<font face="宋體"
lang="ZH-CN">事件，用于確定拖動被放下后程序如何進行處理。</p>
<p>　　</font>OnDragDrop<font face="宋體" lang="ZH-CN">事件處理過程的參數(shù)包括源控件和光標位置。這些信息可用于處理方式的確定。</p>
<p>　　</font>OnEndDrag<font face="宋體" lang="ZH-CN">事件是在拖動操作結(jié)束后由源控件來進行響應(yīng)的，用于源控件進行相應(yīng)的處理。拖動操作結(jié)束既包括拖動放下被接受，也包括用戶在一個不能接受放下的控件上釋放了鼠標。該事件處理過程的參數(shù)包括目標控件</font>(Target)<font
face="宋體" lang="ZH-CN">和放下位置的坐標。如果</font>Target=nil, <font
face="宋體" lang="ZH-CN">表示拖動項目沒有被任何控件接受。</p>
<p>　　在第</font>3<font face="宋體" lang="ZH-CN">節(jié)將介紹的文件拖放移動、拖放拷貝操作中，如果操作成功，則文件列表框應(yīng)更新顯示內(nèi)容。下面這段程序用于實現(xiàn)這一功能。　</p>
</font><p>procedure TFMForm.FileListEndDrag(Sender, Target: TObject; X, Y: Integer);</p>
<p>begin</p>
<p>if Target &lt;&gt; nil then FileList.Update;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p>　　除以上介紹的三個事件外，還有一個事件</font>OnMouseDown
<font face="宋體" lang="ZH-CN">也常用于拖放操作的響應(yīng)。</font>OnMouseDown<font
face="宋體" lang="ZH-CN">雖然不是一個專門的拖放事件，但在人工模式下拖動的開始是在這一事件的處理過程中實現(xiàn)的。　</p>
</font><p>9.1.3 <font face="宋體" lang="ZH-CN">拖放方法　</p>
<p>　　拖放方法有三個：</p>
<p>　　●</font>BeginDrag <font face="宋體" lang="ZH-CN">：</font> <font
face="宋體" lang="ZH-CN">人工方式下開始一個拖動</p>
<p>　　●</font>EndDrag <font face="宋體" lang="ZH-CN">：　結(jié)束一個拖動</p>
<p>　　●</font>Dragging <font face="宋體" lang="ZH-CN">：</font> <font
face="宋體" lang="ZH-CN">判斷一個控件是否正被拖動　</p>
<p>　　這三個方法都被源控件使用。</p>
<p>　　當</font>DragMode<font face="宋體" lang="ZH-CN">置為</font>dmManual<font
face="宋體" lang="ZH-CN">時，拖動必須調(diào)用控件的</font>BeginDrag<font
face="宋體" lang="ZH-CN">方法才能開始。</font>BeginDrag<font face="宋體"
lang="ZH-CN">有一個布爾參數(shù)</font>Immediate<font face="宋體" lang="ZH-CN">。如果輸入?yún)?shù)為</font>True<font
face="宋體" lang="ZH-CN">，拖動立即開始，光標改變到</font>DragCursor<font
face="宋體" lang="ZH-CN">的設(shè)置。如果輸入?yún)?shù)為</font>False<font
face="宋體" lang="ZH-CN">，直到用戶將光標移動了一定的距離</font>(5<font
face="宋體" lang="ZH-CN">個象素點</font>)<font face="宋體" lang="ZH-CN">后才改變光標，開始拖動。這就允許控件接受一個</font>OnClick<font
face="宋體" lang="ZH-CN">事件而并不開始拖動操作。</p>
<p>　　</font>EndDrag<font face="宋體" lang="ZH-CN">方法中止一個對象的被拖動狀態(tài)。它有一個布爾參數(shù)</font>Drop<font
face="宋體" lang="ZH-CN">。如果</font>Drop<font face="宋體" lang="ZH-CN">設(shè)置為</font>True<font
face="宋體" lang="ZH-CN">，被拖動的對象在當前位置放下</font>(<font
face="宋體" lang="ZH-CN">能否被接受由目標控件決定</font>)<font face="宋體"
lang="ZH-CN">；如果</font>Drop<font face="宋體" lang="ZH-CN">設(shè)置為</font>False<font
face="宋體" lang="ZH-CN">，則拖動就地被取消。</p>
<p>　　下面一段程序表明當拖動進入一控制面板時拖動被取消。　　　　　</p>
</font><p>procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;</p>
<p>State: TDragState; var Accept: Boolean);</p>
<p>begin</p>
<p>Accept := False;</p>
<p>if (Source is TLabel) and (State = dsDragEnter) then</p>
<p>(Source as TLabel).EndDrag(False);</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p>　　</font>Draging<font face="宋體" lang="ZH-CN">方法判斷一個控件是否正被拖動。在下面的例子中當用戶拖動不同的檢查框時窗口改變?yōu)椴煌念伾！?lt;/p>
</font><p>procedure TForm1.FormActivate(Sender: TObject);</p>
<p>begin</p>
<p>CheckBox1.DragMode := dmAutomatic;</p>
<p>CheckBox2.DragMode := dmAutomatic;</p>
<p>CheckBox3.DragMode := dmAutomatic;</p>
<p>end;　</p>
<p>procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;</p>
<p>State: TDragState; var Accept: Boolean);</p>
<p>begin</p>
<p>if CheckBox1.Dragging then</p>
<p>Color := clAqua;</p>
<p>if CheckBox2.Dragging then</p>
<p>Color := clYellow;</p>
<p>if CheckBox3.Dragging then</p>
<p>Color := clLime;</p>
<p>end;　</p>
<p align="center">9.2 <font face="宋體" lang="ZH-CN">開發(fā)拖放功能的一般步驟　</p>
<p>　　拖放作為</font>Windows<font face="宋體" lang="ZH-CN">提供的一種方便操作對象的功能，在</font>Delphi<font
face="宋體" lang="ZH-CN">中可以很容易地開發(fā)出來。根據(jù)拖放操作的過程可以把開發(fā)步驟劃分為四個階段，即：</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">開始拖動操作</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">接收拖動項目</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">放下拖動項目</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">終止拖動操作　</p>
<p>　　在介紹過程中我們將結(jié)合一個</font>TabSet(<font face="宋體"
lang="ZH-CN">標簽集</font>)<font face="宋體" lang="ZH-CN">的拖放操作實例。界面設(shè)計如圖。在運行時當用戶把一個標簽拖動到另一個標簽的位置時，該標簽將移動到該位置并引起標簽集的重新布置。</font></p>
<p>9.2.1 <font face="宋體" lang="ZH-CN">開始拖動操作　</p>
<p>　　當拖動模式</font>(DragMode)<font face="宋體" lang="ZH-CN">設(shè)置為</font>dmAutomatic<font
face="宋體" lang="ZH-CN">時，用戶在源控件上按下鼠標時拖動自動開始；當設(shè)置為</font>dmManual<font
face="宋體" lang="ZH-CN">時通過處理鼠標事件來決定拖動是否開始。如果想開始拖動調(diào)用</font>BeginDrag<font
face="宋體" lang="ZH-CN">方法。</p>
<p>　　在</font>TabSet<font face="宋體" lang="ZH-CN">拖放中，我們用下面的</font>MouseDown<font
face="宋體" lang="ZH-CN">事件處理過程來開始一個標簽的拖動。首先判斷按下的是否是左鍵，而后再判斷項目是否合法。　</p>
</font><p>procedure TForm1.TabSet1MouseDown(Sender: TObject; Button: TMouseButton;</p>
<p>Shift: TShiftState; X, Y: Integer);</p>
<p>var</p>
12 下一頁
?? 文件大小 434 K
?? 上傳用戶 A15117704533
?? 所屬分類 Delphi/CppBuilder
??? 相關(guān)標簽

#Delphi #基礎(chǔ)知識 #講座
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 023.htm

?? 快捷鍵說明
