tlistview使用--拖放操作

时间:2010-03-05 18:49:29  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:="#e8ffe8" border="1">procedure tyanzheng.AppMessage(var Msg: TMsg;var Handled: Boolean); varnFiles, I: Integer;ListItem: TListItem;begin  if (Msg.message = WM_DROPFILES) and (msg.hwnd = ListView1.Handle) then  begin    if MessageDlg('确定要加入吗',
  正文:下列程序是本人在软件开发过程中根据用户操作上的方便,写的一个小过程,主要实现了向listview控件中拖放文件功能,其源代码如下:


procedure tyanzheng.AppMessage(var Msg: TMsg;var Handled: Boolean);
var
nFiles, I: Integer;
ListItem: TListItem;
begin
  if (Msg.message = WM_DROPFILES) and (msg.hwnd = ListView1.Handle) then
  begin
    if MessageDlg('确定要加入吗',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
      // 取dropped files的数量
nFiles := DragQueryFile (Msg.wParam, $FFFFFFFF, nil, 0);
      // 循环取每个拖下文件的全文件名
try
        for I := 0 to nFiles - 1 do
        begin
          // 为文件名分配缓冲 allocate memory
SetLength (Filename, 80);
          // 取文件名 read the file name
DragQueryFile (Msg.wParam, I, PChar (Filename), 80);
          Filename := PChar (Filename);
          //将全文件名分解程文件名和路径
ListItem := ListView1.Items.Add;
          ListItem.Caption := ExtractFileName(FileName);
          listitem.ImageIndex:=6;
          ListItem.SubItems.Add(ExtractFilePath(FileName));
          filepath:=extractfilepath(filename);
          //drage:=true;
end;
        finally
          //结束这次拖放操作
DragFinish (Msg.wParam);
        end;
        //标识已处理了这条消息
Handled := True;
        movefile(pchar(filename),pchar(filespath+listitem.caption));
      end;end;
  end;

注意:本程序功能是完整的,程序中使用了movefile函数,也就是说,实现了把操作的文件移到了系统所在的目录中,因此建议在调试过程中不要用重要的文件作调试用。

程序中用到了向windows发送消息,不明白的话,建议看一些有关方面的文章(本程序可直接运行,须加入到系统中),本程序与《tlistview显示文件夹内容中的程序结合使用,效果更好》

程序用在showform事件中:用法如下:


//设置需要处理文件WM_DROPFILES拖放消息
DragAcceptFiles(ListView1.Handle, TRUE);
//设置AppMessage过程来捕获所有消息
Application.OnMessage := AppMessage;

"tlistview使用--拖放操作"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13061.html


关键字:

关于《tlistview使用--拖放操作》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td