2013年12月21日
Delphi 第三方组件
摘要： TMS Component Pack v7.0.0.0 TMS Component Pack 版本为Delphi和C++ Builder提供了超过350个VCL组件，用以创建功能丰富的、现代的和原生Windows应用程序。www.tmssoftware.comDemo http://www.tmssoftware.com/site/tmspcksamples.asp支持delphi 版本：Delphi 7~Delphi XE5 附件：http://yunpan.cn/QDP5pIs9HXQzA44.6 MB Raize Components 6.1.5.7zwww.raize.comRaize 阅读全文
posted @ 2013-12-21 18:28 XE2011 阅读(533) 评论(0) 推荐(0)
判断文件是否正在被使用
摘要： //判断文件是否正在被使用 function FileINUse(filename:String):boolean;var usein:file;begin result:=false; assignfile(usein,FileName); try reset(Usein); except on E:EInOutError do begin if e.ErrorCode=32 then begin result:=true; exit; end; end; end; closefile(usein... 阅读全文
posted @ 2013-12-21 14:26 XE2011 阅读(437) 评论(2) 推荐(0)
滚动条
摘要： WINDOWS发送消息This function sends the specified message to a window or windows. SendMessage calls the window procedure for the specified window and does not return until the window procedure has processed the message. The PostMessage function, in contrast, posts a message to a thread's message queu 阅读全文
posted @ 2013-12-21 13:59 XE2011 阅读(689) 评论(0) 推荐(0)
获取一个文件夹下的所有文件
摘要： 获取一个文件夹下的所有文件 //不包括文件夹里面的文件 获取一个文件夹下的所有文件 //包括文件夹里面的文件 阅读全文
posted @ 2013-12-21 12:11 XE2011 阅读(373) 评论(0) 推荐(0)
单击按钮左键弹起菜单
摘要： 方法1procedure TForm2.Button1Click(Sender: TObject);var Pt: TPoint;begin GetCursorPos(Pt); PopupMenu1.Popup(Pt.X, Pt.Y);end;方法2设置控件的DropDownMenu 为右键单击（可手动设置） 这个功能只对ToolBar的 Button有效PopMenu为右键单击procedure TForm1.Button1Click(Sender: TObject);begin ToolButton1.DropdownMenu := PopupMenu1;end; 阅读全文
posted @ 2013-12-21 11:51 XE2011 阅读(251) 评论(0) 推荐(0)