Delphi拖放编程详解(4)

时间：2011/9/3 15:34:35 点击：

　
　　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;　
到目前为止，我们的文件管理器功能已足够强大。不过还有许多问题值得读者去进
一步探讨，如：
　　1.文件与应用程序关联的建立；
　　2.在文件列表框中显示更多的文件信息；
　　3.文件列表框中的文件按后缀各排序等。