9.2開發拖放功能的一般步驟

　　拖放作為Windows提供的一種方便操作對象的功能，在Delphi中可以很容易地開發
出來。根據拖放操作的過程可以把開發步驟劃分為四個階段，即：

　　●開始拖動操作

　　●接收拖動項目

　　●放下拖動項目

　　●終止拖動操作

　　在介紹過程中我們將結合一個TabSet(標簽集)的拖放操作實例。界面設計如圖。
在運行時當用戶把一個標簽拖動到另一個標簽的位置時，該標簽將移動到該位置并引起
標簽集的重新布置。

　　9.2.1開始拖動操作

　　當拖動模式(DragMode)設置為dmAutomatic時，用戶在源控件上按下鼠標時拖動自動
開始；當設置為dmManual時通過處理鼠標事件來決定拖動是否開始。如果想開始拖動調
用BeginDrag方法。

　　在TabSet拖放中，我們用下面的MouseDown事件處理過程來開始一個標簽的拖動。

　　首先判斷按下的是否是左鍵，而后再判斷項目是否合法。

PRocedure TForm1.TabSet1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

DragItem: Integer;

begin

if Button = mbLeft then

begin

DragItem := TabSet1.ItemAtPos(Point(X, Y));

if (DragItem > -1) and (DragItem < TabSet1.Tabs.Count) then

TabSet1.BeginDrag(False);

end;

end;

　　9.2.2接收拖動項目

　　一個控件能否接收拖動項目是由該控件的OnDragOver事件決定的。在TabSet拖動中，主要是利用鼠標的位置進行判斷。

procedure TForm1.TabSet1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

var

DropPos: Integer;

begin

if Source = TabSet1 then

begin

DropPos := TabSet1.ItemAtPos(Point(X, Y));

Accept := (DropPos > -1) and (DropPos <> TabSet1.TabIndex) and

(DropPos < TabSet1.Tabs.Count);

end;

else

Accept := False;

end;

　　9.2.3放下拖動項目

　　當OnDragOver事件處理過程返回的Accept為True且項目被放下時，由OnDragDrop事
件處理過程來完成拖動放下后的響應。在TabSet拖放實例中是改變標簽的位置。

procedure TForm1.TabSet1DragDrop(Sender, Source: TObject; X, Y: Integer);

var

OldPos: Integer;

NewPos: Integer;

begin

if Source = TabSet1 then

begin

OldPos := TabSet1.TabIndex;

NewPos := TabSet1.ItemAtPos(Point(X, Y));

if (NewPos > -1) and (NewPos <> OldPos) then

TabSet1.Tabs.Move(OldPos, NewPos);

end;

end;

　　9.2.4結束拖動操作

　　結束拖動操作的方式有兩種：或者是用戶釋放了鼠標鍵或者是程序用EndDrag方法
強行中止拖動。結束拖動操作的后果有兩種：放下被接受或放下被忽略。

　　拖動操作結束后源控件都要收到一條消息響應拖動結束事件OnEndDrag。

　　9.3　　拖放應用實例：文件管理器的拖放支持

　　在第六章最后開發的文件管理器應用實例，雖然功能上已初具規模，但在操作上
與Windows的文件管理器相比還有很大不足。其中最大的缺陷是它不支持文件的拖放移動
和拖放拷貝。在這一章結束的時候，我們可以來彌補這一缺陷了。

　　文件拖放移動指的是當用戶把一個文件拖動到目錄樹下的某一目錄并放下時，文件
將自動移動到該目錄中；文件拖放拷貝指的是當用戶把一個文件拖動到某個驅動器標簽
上并放下時，文件將自動拷貝到該驅動器的當前目錄下。作為源控件的文件列表框和作
為目標控件的目錄樹、驅動器標簽可以位于不同的子窗口。驅動器的當前目錄是任一子
窗口的最新操作結果，而不論這一子窗口與拖動源、拖動目標是否有關系。

　　為了實現上述功能，有兩個問題必須首先解決：

　　1.如何記錄每一驅動器的當前目錄？

　　為此我們定義了一個全局變量：

　　var CurentDirList: Array[0...25] of string[70];

　　在DirectoryOutline的OnChange事件中：

procedure TFMForm.DirectoryOutlineChange(Sender: TObject);

begin

CreateCaption;

FileList.clear;

FileList.Directory := DirectoryOutline.Directory;

FileList.Update;

CurrentDirList[DriveTabSet.TabIndex] := DirectoryOutline.Directory;

FileManager.DirectoryPanel.Caption := DirectoryOutline.Directory;

end;　

　　由于DriveTabSet在響應OnDragDrop事件前先響應OnClick事件，并由該事件激
發DirectoryOutline的Onchange事件，因而可保證在任何時候OnDragDrop事件中用
到的CurrentDirList數組項不為空字符串。

　　2.如何保證移動、拷貝與子窗口的無關性？

　　在這里一個關鍵問題是我們判斷源控件時是用is操作符進行類型檢查:

　　If Source is TFileList then …

　　如果我們用下面的語句：

　　If Source = FileList then

　　…

　　則移動、拷貝操作將限制在本子窗口范圍內。

　　當解決了上述問我們的工作就只是遵循拖放的一般開發步驟，按步就班來完成了。

　　1.FileList開始拖動操作

procedure TFMForm.FileListMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button = mbLeft then

with Sender as TFileListBox do

begin

if ItemAtPos(Point(X, Y), True) >= 0 then

BeginDrag(False);

end;

end;

　　ItemAtPos用來檢查當前是否有文件存在。而BeginDrag方法傳遞參數False,允許FileList單獨處理鼠標事件而并不開始拖動。事實上這種情況是大量存在的。

　　2.DirectoryOutline、DriveTabSet決定是否能接受拖動的就地放下。

procedure TFMForm.DirectoryOutlineDragOver(Sender, Source: TObject; X,

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

begin

if Source is TFileListBox then

Accept := True;

end;

procedure TFMForm.DriveTabSetDragOver(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(X,Y));

Accept := (PropPos > -1) and (PropPos < Tabs.Count);

end;

end;

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

　　3.拖動放下的響應

　　DirectoryOutline的拖動放下用于實現文件移動功能。程序中調用ConfirmChange 事件
處理過程，目標路徑由DirctoryOutline.Items[GetItem(X,Y)].FullPath來得到。

procedure TFMForm.DirectoryOutlineDragDrop(Sender, Source: TObject; X,

Y: Integer);

begin

if Source is TFileListBox then

with DirectoryOutline do

begin

ConfirmChange('Move',FileList.FileName, Items[GetItem(X, Y)].FullPath);

end;

end;

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

procedure TFMForm.DriveTabSetDragDrop(Sender, Source: TObject; X,Y: Integer);

var

APoint: TPoint;

begin

APoint.X := X; APoint.Y := Y;

DriveTabSet.TabIndex := DriveTabSet.ItemAtPos(APoint);

if Source is TFileListBox then

with DriveTabSet do

begin

if CurrentDirList[TabIndex] <> '' then

ConfirmChange('Copy',TheFilename,CurrentDirList[TabIndex]);

end;

end;

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

procedure TFMForm.FileListEndDrag(Sender, Target: TObject; X, Y: Integer);

begin

if Target <> nil then FileList.Update;

end;