★★ListView的拖放问题（Drag）★★

2004-03-24 04:27:02 136 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

fei19790920 墨衍会员 · AI 创作全网分发关注 + 加入社区

手把手教你用UNI-MOL进行分子性质预测：从3D构象到实战结果本文提供了使用UNI-MOL进行分子性质预测的完整实战指南。通过详细的环境搭建、3D构象生成、模型加载与微调步骤，手把手教你构建端到端的预测流水线。文章重点解析了如何利用UNI-MOL的3D分子表示学习能力，超越传统2D方法，实现对溶解度、活性等性质的更精准预测，并探讨了结果解读与模型分析方法。阅读详情

想实现ListView接受外部的拖放，如从资源管理器中拖一个文件到当前程序的ListView中，请问怎么实现？？

...全文

冷源法测试噪声系数（Noise Figure）详细步骤背景知识电阻负载的功率谱密度噪声等效模型 3 4 冷源法测试步骤注意事项阅读详情

fei19790920

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

kinglh 2004-03-24

打赏
举报

void __fastcall TForm2::DragDropFiles(TMessage &msg)
{
char FileName[_MAX_PATH]; // 缓冲区
int i, Sum; // 获得拖拉的文件数目，该功能由第二个参数决定
Sum = DragQueryFile( HDROP(msg.WParam), 0xFFFFFFFF, NULL, 0); // 显示拖拉文件的数目
for( i=0; i<Sum; i++ )
{
// 获取第i个拖拉文件的名字，并保存在缓冲区FileName中
DragQueryFile( HDROP(msg.WParam), i, FileName, _MAX_PATH);
Form2->ListBox1->Items->Add(FileName); //根据扩展名，判断是否加到文件列表中
ListBox1->Items->Delete(Form2->ListBox1->Items->Count-1);
}
// 释放应用程序为传递文件名而开辟的内存空间
DragFinish( HDROP(msg.WParam) );

自己整理一下!

xzhifei 2004-03-24

打赏
举报

unit Unit1;

interface

uses
Windows, ShellAPI, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);
var
WMD: TWMDropFiles;
begin
if Msg.message = WM_DROPFILES then
begin
// MessageBeep(0);
WMD.Msg := Msg.message;
WMD.Drop := Msg.wParam;
WMD.Unused := Msg.lParam;
WMD.Result := 0;
WMDropFiles(WMD);
Handled := TRUE;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(listview1.Handle, True);
// DragAcceptFiles(Handle, True);
// DragAcceptFiles(Application.Handle, True);
Application.OnMessage := AppOnMessage;

end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
N: Word;
buffer: array[0..180] of Char;
item: TListItem;
begin

with Msg do
begin
for N := 0 to DragQueryFile(Drop, $FFFFFFFF, buffer, 1) - 1 do
begin
DragQueryFile(Drop, N, Buffer, 80);
Item := ListView1.Items.Add;
item.Caption := StrPas(Buffer);
end;
DragFinish(Drop);
end;

end;

end.

aiirii 2004-03-24

打赏
举报

http://www.delphibox.com/article.asp?articleid=15
List列表拖放排序记忆演示

lywho 2004-03-24

打赏
举报

RuinRice 2004-03-24

打赏
举报

没做过
但listview不是支持所有文件的托放的！·
最笨的方法是一行行向里面写呗

★★ListView的拖放问题（Drag）★★

相关推荐