DELPHI基礎教程：Delphi拖放編程[4]

　　DirectoryOutlineDriveTabSet決定是否能接受拖動的就地放下

　　procedure TFMFormDirectoryOutlineDragOver（Sender Source: TObject; X

　　Y: Integer; State: TDragState; var Accept: Boolean）

　　begin

　　if Source is TFileListBox then

　　Accept := True;

　　end;

　　procedure TFMFormDriveTabSetDragOver（Sender Source: TObject; X

　　Y: Integer; State: TDragState; var Accept: Boolean）

　　var

　　PropPos: Integer;

　　begin

　　if Source is TFileListBox then

　　with DriveTabSet do

　　begin

　　PropPos := ItemAtPos（Point（XY））

　　Accept := （PropPos > ） and （PropPos < TabsCount）

　　end;

　　end;

　　DirectoryOutline是無條件的接受而DriveTabSet需檢查是否是合法的標簽

　　拖動放下的響應

　　DirectoryOutline的拖動放下用於實現文件移動功能程序中調用ConfirmChange事件處理過程目標路徑由DirctoryOutlineItems[GetItem（XY）]FullPath來得到

　　procedure TFMFormDirectoryOutlineDragDrop（Sender Source: TObject; XY: Integer）

　　begin

　　if Source is TFileListBox then

　　with DirectoryOutline do

　　begin

　　ConfirmChange（MoveFileListFileName Items[GetItem（X Y）]FullPath）

　　end;

　　end;

　　DriveTabSet的拖動放下用於實現文件拷貝功能程序中把當前位置轉化為相應的驅動器號目標路徑由CurrentDirList[DriveTabSetTabIndex]獲得

　　procedure TFMFormDriveTabSetDragDrop（Sender Source: TObject; XY: Integer）

　　var

　　APoint: TPoint;

　　begin

　　APointX := X; APointY := Y;

　　DriveTabSetTabIndex := DriveTabSetItemAtPos（APoint）

　　if Source is TFileListBox then

　　with DriveTabSet do

　　begin

　　if CurrentDirList[TabIndex] <> then

　　ConfirmChange（CopyTheFilenameCurrentDirList[TabIndex]）

　　end;

　　end;

　　FileList響應拖動結束更新文件列表

　　procedure TFMFormFileListEndDrag（Sender Target: TObject; X Y: Integer）

　　begin

　　if Target <> nil then FileListUpdate;

　　end;

　　到目前為止我們的文件管理器功能已足夠強大 不過還有許多問題值得讀者去進

　　一步探討如

　　文件與應用程序關聯的建立

　　在文件列表框中顯示更多的文件信息

　　文件列表框中的文件按後綴各排序等

　　文件管理器是一個真正的綜合例程對它的鑽研會使您更進一步模到Delphi編程的精髓

　　返回目錄DELPHI基礎教程

       編輯推薦

       Java程序設計培訓視頻教程

       JEE高級框架實戰培訓視頻教程

　　Visual C++音頻/視頻技術開發與實戰

　　Oracle索引技術

　　ORACLEG數據庫開發優化指南

　　Java程序性能優化讓你的Java程序更快更穩定

　　C嵌入式編程設計模式

　　Android游戲開發實踐指南

[]  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25212.html