如何使Form 或 其他对象接受外部的(不是file,是选定的内容)拖动(Drop)事件?(Delphi)
解决方案 »
- 关于WH_CBT钩子中HCBT_DESTROYWND的问题
- 关于record清除数据的问题
- 请教,delphi里数组的指针如何定义和引用的?
- 在ADO+MSSQL环境下开发c/s系统,如何才能知道有哪些用户已登陆
- 新年快乐----怎样把程序的图标显示在工具栏里(在線等待)
- 关于报表预栏的问题..
- 一个关闭程序的问题!
- 为什么这个分组统计的问题总是解决不了?----急!!!求救!!!
- 谁能提供XP风格的DELPHI控件,最好有源码,谢了
- 急,有关DELPHI的问题!!!
- 一个button,在单击后便启动IE。好象“添加/删除网络实名”一样,点击后到指定的网页,如何实现!
- 使用ADO远程连接SQL数据库时的报错
ShellAPI;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(handle,true); //将文件拖动到本窗口!
end;
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
var w:word;
struct_HDROP:HDROP;
PCh:PChar;
begin
DragQueryFile(struct_HDROP,0,PCh,w);
ShowMessage('kkkk');
end;给分吧!:)