?? 023.htm
字號:
<p>DragItem: Integer;</p>
<p>begin</p>
<p>if Button = mbLeft then</p>
<p>begin</p>
<p>DragItem := TabSet1.ItemAtPos(Point(X, Y));</p>
<p>if (DragItem > -1) and (DragItem < TabSet1.Tabs.Count) then</p>
<p>TabSet1.BeginDrag(False);</p>
<p>end;</p>
<p>end; </p>
<p>9.2.2 <font face="宋體" lang="ZH-CN">接收拖動項目 </p>
<p> 一個控件能否接收拖動項目是由該控件的</font>OnDragOver<font
face="宋體" lang="ZH-CN">事件決定的。在</font>TabSet<font face="宋體"
lang="ZH-CN">拖動中，主要是利用鼠標的位置進行判斷?！ ?lt;/p>
</font><p>procedure TForm1.TabSet1DragOver(Sender, Source: TObject; X, Y: Integer;</p>
<p>State: TDragState; var Accept: Boolean);</p>
<p>var</p>
<p>DropPos: Integer;</p>
<p>begin</p>
<p>if Source = TabSet1 then</p>
<p>begin</p>
<p>DropPos := TabSet1.ItemAtPos(Point(X, Y));</p>
<p>Accept := (DropPos > -1) and (DropPos <> TabSet1.TabIndex) and</p>
<p>(DropPos < TabSet1.Tabs.Count);</p>
<p>end;</p>
<p>else</p>
<p>Accept := False;</p>
<p>end; </p>
<p>9.2.3 <font face="宋體" lang="ZH-CN">放下拖動項目 </font></p>
<font face="宋體" lang="ZH-CN"><p> 當</font>OnDragOver<font face="宋體"
lang="ZH-CN">事件處理過程返回的</font>Accept<font face="宋體" lang="ZH-CN">為</font>True<font
face="宋體" lang="ZH-CN">且項目被放下時，由</font>OnDragDrop<font face="宋體"
lang="ZH-CN">事件處理過程來完成拖動放下后的響應。在</font>TabSet<font
face="宋體" lang="ZH-CN">拖放實例中是改變標簽的位置?！?lt;/p>
</font><p>procedure TForm1.TabSet1DragDrop(Sender, Source: TObject; X, Y: Integer);</p>
<p>var</p>
<p>OldPos: Integer;</p>
<p>NewPos: Integer;</p>
<p>begin</p>
<p>if Source = TabSet1 then </p>
<p>begin</p>
<p>OldPos := TabSet1.TabIndex;</p>
<p>NewPos := TabSet1.ItemAtPos(Point(X, Y));</p>
<p>if (NewPos > -1) and (NewPos <> OldPos) then</p>
<p>TabSet1.Tabs.Move(OldPos, NewPos);</p>
<p>end;</p>
<p>end; </p>
<p>9.2.4 <font face="宋體" lang="ZH-CN">結束拖動操作 </p>
<p> 結束拖動操作的方式有兩種：或者是用戶釋放了鼠標鍵或者是程序用</font>EndDrag<font
face="宋體" lang="ZH-CN">方法強行中止拖動。結束拖動操作的后果有兩種：放下被接受或放下被忽略。</p>
<p> 拖動操作結束后源控件都要收到一條消息響應拖動結束事件</font>OnEndDrag<font
face="宋體" lang="ZH-CN">。 </p>
</font><p>9.3<font face="宋體" lang="ZH-CN"> 拖放應用實例：文件管理器的拖放支持 </p>
<p> 在第六章最后開發的文件管理器應用實例，雖然功能上已初具規模，但在操作上與</font>Windows<font
face="宋體" lang="ZH-CN">的文件管理器相比還有很大不足。其中最大的缺陷是它不支持文件的拖放移動和拖放拷貝。在這一章結束的時候，我們可以來彌補這一缺陷了。</p>
<p> 文件拖放移動指的是當用戶把一個文件拖動到目錄樹下的某一目錄并放下時，文件將自動移動到該目錄中；文件拖放拷貝指的是當用戶把一個文件拖動到某個驅動器標簽上并放下時，文件將自動拷貝到該驅動器的當前目錄下。作為源控件的文件列表框和作為目標控件的目錄樹、驅動器標簽可以位于不同的子窗口。驅動器的當前目錄是任一子窗口的最新操作結果，而不論這一子窗口與拖動源、拖動目標是否有關系。</p>
<p> 為了實現上述功能，有兩個問題必須首先解決：</p>
<p> </font>1.<font face="宋體" lang="ZH-CN">如何記錄每一驅動器的當前目錄？</p>
<p> 為此我們定義了一個全局變量： </p>
<p> </font>var</p>
<p>CurentDirList: Array[0...25] of string[70]; </p>
<p><font face="宋體" lang="ZH-CN">在</font>DirectoryOutline<font face="宋體"
lang="ZH-CN">的</font>OnChange<font face="宋體" lang="ZH-CN">事件中： </p>
</font><p>procedure TFMForm.DirectoryOutlineChange(Sender: TObject);</p>
<p>begin</p>
<p>CreateCaption;</p>
<p>FileList.clear;</p>
<p>FileList.Directory := DirectoryOutline.Directory;</p>
<p>FileList.Update;</p>
<p>CurrentDirList[DriveTabSet.TabIndex] := DirectoryOutline.Directory;</p>
<p>FileManager.DirectoryPanel.Caption := DirectoryOutline.Directory;</p>
<p>end;<font face="宋體" lang="ZH-CN"> </p>
<p> 由于</font>DriveTabSet<font face="宋體" lang="ZH-CN">在響應</font>OnDragDrop<font
face="宋體" lang="ZH-CN">事件前先響應</font>OnClick<font face="宋體"
lang="ZH-CN">事件，并由該事件激發</font>DirectoryOutline<font face="宋體"
lang="ZH-CN">的</font>Onchange<font face="宋體" lang="ZH-CN">事件，因而可保證在任何時候</font>OnDragDrop<font
face="宋體" lang="ZH-CN">事件中用到的</font>CurrentDirList<font face="宋體"
lang="ZH-CN">數組項不為空字符串。</p>
<p> 2.如何保證移動、拷貝與子窗口的無關性？</p>
<p> 在這里一個關鍵問題是我們判斷源控件時是用</font>is<font
face="宋體" lang="ZH-CN">操作符進行類型檢查</font>: </p>
<p>If Source is TFileList then</p>
<p><font face="宋體" lang="ZH-CN">…</p>
<p> 如果我們用下面的語句： </p>
<p> </font> If Source = FileList then</p>
<font face="宋體" lang="ZH-CN"><p> </font> <font face="宋體" lang="ZH-CN">…</p>
<p> 則移動、拷貝操作將限制在本子窗口范圍內。</p>
<p> 當解決了上述問題后我們的工作就只是遵循拖放的一般開發步驟，按步就班來完成了。</p>
<p> </font>1.FileList<font face="宋體" lang="ZH-CN">開始拖動操作 </p>
</font><p>procedure TFMForm.FileListMouseDown(Sender: TObject; Button: TMouseButton;</p>
<p>Shift: TShiftState; X, Y: Integer);</p>
<p>begin</p>
<p>if Button = mbLeft then</p>
<p>with Sender as TFileListBox do</p>
<p>begin</p>
<p>if ItemAtPos(Point(X, Y), True) >= 0 then</p>
<p>BeginDrag(False);</p>
<p>end;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p> </font>ItemAtPos<font face="宋體" lang="ZH-CN">用來檢查當前是否有文件存在。而</font>BeginDrag<font
face="宋體" lang="ZH-CN">方法傳遞參數</font>False, <font face="宋體"
lang="ZH-CN">允許</font>FileList<font face="宋體" lang="ZH-CN">單獨處理鼠標事件而并不開始拖動。事實上這種情況是大量存在的?！?lt;/p>
<p> </font>2.DirectoryOutline<font face="宋體" lang="ZH-CN">、</font>DriveTabSet<font
face="宋體" lang="ZH-CN">決定是否能接受拖動的就地放下?！ ?</p>
</font><p>procedure TFMForm.DirectoryOutlineDragOver(Sender, Source: TObject; X,</p>
<p>Y: Integer; State: TDragState; var Accept: Boolean);</p>
<p>begin</p>
<p>if Source is TFileListBox then</p>
<p>Accept := True;</p>
<p>end; </p>
<p>procedure TFMForm.DriveTabSetDragOver(Sender, Source: TObject; X,</p>
<p>Y: Integer; State: TDragState; var Accept: Boolean);</p>
<p>var</p>
<p>PropPos: Integer;</p>
<p>begin</p>
<p>if Source is TFileListBox then</p>
<p>with DriveTabSet do</p>
<p>begin</p>
<p>PropPos := ItemAtPos(Point(X,Y));</p>
<p>Accept := (PropPos > -1) and (PropPos < Tabs.Count);</p>
<p>end;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p> </font>DirectoryOutline<font face="宋體"
lang="ZH-CN">是無條件的接受，而</font>DriveTabSet<font face="宋體" lang="ZH-CN">需檢查是否是合法的標簽?！?lt;/p>
<p> </font>3.<font face="宋體" lang="ZH-CN">拖動放下的響應</p>
<p> </font>DirectoryOutline<font face="宋體" lang="ZH-CN">的拖動放下用于實現文件移動功能。程序中調用</font>ConfirmChange<font
face="宋體" lang="ZH-CN">事件處理過程，目標路徑由</font>DirctoryOutline.Items[GetItem(X,Y)].FullPath<font
face="宋體" lang="ZH-CN">來得到?！ ?lt;/p>
</font><p>procedure TFMForm.DirectoryOutlineDragDrop(Sender, Source: TObject; X,</p>
<p>Y: Integer);</p>
<p>begin</p>
<p>if Source is TFileListBox then</p>
<p>with DirectoryOutline do</p>
<p>begin</p>
<p>ConfirmChange('Move',FileList.FileName, Items[GetItem(X, Y)].FullPath);</p>
<p>end;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p> </font> DriveTabSet<font face="宋體" lang="ZH-CN">的拖動放下用于實現文件拷貝功能。程序中把當前位置轉化為相應的驅動器號，目標路徑由</font>CurrentDirList[DriveTabSet.TabIndex]<font
face="宋體" lang="ZH-CN">獲得。 </p>
</font><p>procedure TFMForm.DriveTabSetDragDrop(Sender, Source: TObject; X,Y: Integer);</p>
<p>var</p>
<p>APoint: TPoint;</p>
<p>begin</p>
<p>APoint.X := X; APoint.Y := Y;</p>
<p>DriveTabSet.TabIndex := DriveTabSet.ItemAtPos(APoint);</p>
<p>if Source is TFileListBox then</p>
<p>with DriveTabSet do</p>
<p>begin</p>
<p>if CurrentDirList[TabIndex] <> '' then</p>
<p>ConfirmChange('Copy',TheFilename,CurrentDirList[TabIndex]);</p>
<p>end;</p>
<p>end; </p>
<p>4.FileList<font face="宋體" lang="ZH-CN">響應拖動結束，更新文件列表 </p>
</font><p>procedure TFMForm.FileListEndDrag(Sender, Target: TObject; X, Y: Integer);</p>
<p>begin</p>
<p>if Target <> nil then FileList.Update;</p>
<p>end; </p>
<p><font face="宋體" lang="ZH-CN">到目前為止，我們的文件管理器功能已足夠強大。</font>
<font face="宋體" lang="ZH-CN">不過還有許多問題值得讀者去進</p>
<p>一步探討，如：</p>
<p> </font>1.<font face="宋體" lang="ZH-CN">文件與應用程序關聯的建立；</p>
<p> </font>2.<font face="宋體" lang="ZH-CN">在文件列表框中顯示更多的文件信息；</p>
<p> </font>3.<font face="宋體" lang="ZH-CN">文件列表框中的文件按后綴各排序等。</p>
<p> 文件管理器是一個真正的綜合例程，對它的鉆研會使您更進一步模到</font>Delphi<font
face="宋體" lang="ZH-CN">編程的精髓。</font></p>
<BR>
<hr color="#EE9B73" size="1" width="94%">
</TD>
<TD CLASS="tt3" VALIGN="bottom" 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>
</TR>
</table>
</BODY></HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -