熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:51:10  來源: Delphi編程 

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.