确实不错,不过还有一个问题如果是自己应用程序中拖到windows中的窗口应如何实现呢?
解决方案 »
- 在函数中获取Panel句柄
- ADO连接问题
- 在DELPHI中怎么用SendMessage函数得到某一句柄中的内容!!!!
- combobox的一个问题?
- 调用
- 高手赐教:在Delphi中如何实现类似qq可上下移动的面板效果。
- 请教关于数组和指针
- 突然发现,自从进入csdn以来我问的问题怎么没有一个人感兴趣?
- 插入新记录后的显示问题
- delphi+access做出来的软件 和 access 直接做出来的程序 有什么区别?是不是这样的话,用 delphi做出来的程序有些多余?直接用access做算了
- 像QQ里的显示在线人数是怎么实现的??
- 在Delphi中用ADO连接SQL Server 的一个问题,请各位专家帮忙,先谢了
能否做成一个基于TComponent的非可视化控件?
而不是基于TListBox的,或者别的什么。
property DropEnabled:Boolean read FEnabled write FDropEnabled;
FDropEnabled 的命名规则有些混乱?
应当为 SetDropEnabled 吧?(借鉴 Vcl 的源代码命名规范)
destructor 过程可以略去。
说的是你在自己的程序中,拖动某个东西,比如一个TListView的一个条目(Item)
,到IE的窗口中,希望创建一个特定的文件或者执行别的什么操作,怎么做?
就象Winzip 一样,拖动一个文件到IE窗口中,Winzip将此文件解压出来了。
Y: Integer);
begin
DragAcceptFiles(listbox1.Handle,Enabled);//
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var Mes:TMessage;
FN:TStringList;
FileName:array [1..256] of char;
sFN:String;
i,Count,p:integer;
begin
FN:=TStringList.Create;
Count:=DragQueryFile(Mes.WParam,$FFFFFFFF,@FileName,256);//得到拖放文件的个数
For i:=0 to Count-1 do
begin
DragQueryFile(mes.WParam,i,@FileName,256);//查询文件名称
sFN:=FileName;
p:=pos(chr(0),sFN);//去掉文件名末尾的ASCII码为0的字符
sFN:=copy(sFN,1,p-1);
FN.Add(sFN);
end;
DragFinish((mes.WParam); //释放所使用的资源
listbox1.Items.AddStrings(fn);
FN.Free;
end;
^^^^^^^^^^^为什么一定要指向这个句柄,我指向listbox1.handle就不能拖入listbox中了??