怎么让我的Memo支持windows资源管理器的文件拖放? 怎么让我的Memo支持windows资源管理器的文件拖放?给代码也好,控件也好,什么都好,有用就给分!我的E-Mail: [email protected]谢谢各位! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 type TSDIAppForm = class(TForm) public procedure WMdropfiles(var msg:tMessage); message WM_DROPFILES;end;implementationprocedure TForm1.FormCreate(Sender: TObject);begindragacceptfiles(handle,true);//启动程序时申请允许拖放end;procedure TForm1.FormDestroy(Sender: TObject);begindragacceptfiles(handle,false);//关闭程序时关闭拖放end;procedure TForm1.WMdropfiles(var msg:tmessage);//处理系统拖放事件var name1:array[0..100] of char;nm1:string;begin dragqueryfile(thandle(msg.wparam),0,name1,200); nm1:= trim(name1) ; memo1.Lines.LoadFromFile(nm1);end; 用APIDragacceptfiles,Dragqueryfile在窗体创建时首先用Dragacceptfiles使窗体能接受文件,然后用dragqueryfile得到文件名,再在memo中装入文件。 超时过期? 请问谁有打印监控程序的例子啊,大家说说,在打印监控时怎么取得打印机所用颜色和打印纸张大小?? 为什么我用richedit把文本读入显示出来以后,再另存为文本的时候,文件内容会变化,加了很多字符?谁帮帮我?多谢了 query记录定位!列表框值 根据编号查询,显示其它内容的存储过程如何编写? 如何避免MDI子窗口创建、切换时的闪烁? 我想买手机,大家能推荐几款吗? 请教问题怎么样复制数据库的表? 怎样动态改变屏幕分辨率?谢谢! 请教SQL语句 多文档中子文档显示问题:如何使字窗体一打开就出现在主窗体中间紧挨工具栏,几积极机 怎样在D5下使用TXMLDocument
TSDIAppForm = class(TForm)
public
procedure WMdropfiles(var msg:tMessage);
message WM_DROPFILES;
end;
implementationprocedure TForm1.FormCreate(Sender: TObject);
begin
dragacceptfiles(handle,true);//启动程序时申请允许拖放
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
dragacceptfiles(handle,false);//关闭程序时关闭拖放
end;procedure TForm1.WMdropfiles(var msg:tmessage);//处理系统拖放事件
var name1:array[0..100] of char;
nm1:string;
begin
dragqueryfile(thandle(msg.wparam),0,name1,200);
nm1:= trim(name1) ;
memo1.Lines.LoadFromFile(nm1);
end;
Dragacceptfiles,Dragqueryfile在窗体创建时首先用Dragacceptfiles使窗体能接受文件,然后用dragqueryfile得到文件名,再在memo中装入文件。