del88 - 博客园

2012年9月1日

摘要： Delphi的单引号,真是会把人搞晕的一个符号 Delphi中不使用双引号,单引号必须配对 ①引号内无字串的情况下 ShowMessage('');->空字串 ShowMessage(' ' ');->这是错的 ShowMessage('''');->显示一个引号原则-> 从左开始,去掉第一个引号阅读全文

posted @ 2012-09-01 14:26 del88 阅读(17) 评论(0) 推荐(0) 编辑

2012年8月30日

系统托盘相关-总结

摘要： 1、系统托盘组件 TTrayIcon 简介 TTrayIcon 的主要属性: TrayIcon.Icon 指定托盘图标, 有几种用法: 1、设计时选择; 2、把一个 TIcon 对象给它; 3、使用当前程序图标: TrayIcon1.Icon := Application.Icon; 4、TrayI 阅读全文

posted @ 2012-08-30 10:35 del88 阅读(11) 评论(0) 推荐(0) 编辑

2012年8月18日

TComboBox 清空的话切记一定不要任务 TComboBox.text = "";

摘要： TComboBox 清空的话切记一定不要任务 TComboBox.text = "";就完了完全没有必要用TComboBox.text := ''; 正确的应该是用TComboBox.ItemIndex := -1; 举例：针对TComboBox组件的清空一定要这样用才可 TComboBox. 阅读全文

posted @ 2012-08-18 15:28 del88 阅读(4) 评论(0) 推荐(0) 编辑

dbgrideh 点击标题排序我自己

摘要：如果要让软件自动排序，不写任何代码（能满足大多数需求）方法： 1. 2. 3. 加入EhlibADO单元（我是使用ADO连接数据库，如果是BDE，就EhLibDBE单元）二，由于官方的这种方法有时候不能满足我们的需求,就是如果本身查询的SQL语句含有,ORDER BY 的话如：select * 阅读全文

posted @ 2012-08-18 00:20 del88 阅读(14) 评论(0) 推荐(0) 编辑

2012年8月17日

除非另外还指定了 TOP、OFFSET 或 FOR XML，否则，ORDER BY 子句在视图、内联函数、派生表、子查询和公用表表达式中无效。

摘要：执行下面SQL 会收到如题的错误.这是为什么呢? 注意红色部分,它属于子查询,再关注出错信息.问题出在order by...... select location from (Select * From LOCATION Where WAREHOUSE = N'W3_SHANGHAI' And PU 阅读全文

posted @ 2012-08-17 20:38 del88 阅读(4) 评论(0) 推荐(0) 编辑

2012年8月15日

delphi 连接mysql

摘要：如此简单的事，却浪费我大量的时间和精力原因是我的系统是win7_64位,mysql支持的还不是太好,所以无论怎样都是不成功悲哀,wamp也是,装64位的不是这错就是那错, 再加上我是开发者，而客户的电脑大多数都是32位的，即使是64位的，我在32位系统上做出来的软件也是完全可以兼容64位的，而反阅读全文

posted @ 2012-08-15 20:44 del88 阅读(6) 评论(0) 推荐(0) 编辑

2012年8月14日

idhttp post 上传或下载时显示进度条

摘要：通过 idhttp 带进度条上传演示一下，下载和上传原理差不多，说明一下下面例子中的的idhttp 是动态创建的第一步：添加一个StatusBar或者gauge 进度条，这2个都可以。我用的是 statusbar ，因为这个好看，属性保持默认就可。第二步：获取上传进度需要填写idhttp中的on 阅读全文

posted @ 2012-08-14 12:15 del88 阅读(7) 评论(0) 推荐(0) 编辑

Idhttp Get/Post假死

摘要：在程序中使用了IdHTTP的话，在执行Get或Post过程的时候，程序界面会无法响应，造成程序假死，但在任务管理器中又能看到程序正在运行。这是因为Indy系统组件都使用了阻塞式Sock，阻塞式Sock的缺点就是使客户程序的用户界面“冻结”。当在程序的主线程中进行阻塞式 Socket调用时，由于要等阅读全文

posted @ 2012-08-14 11:53 del88 阅读(4) 评论(0) 推荐(0) 编辑

idhttp get与post

摘要：大致了解： 1. get是从服务器上获取数据，post是向服务器传送数据。 get 和 post只是一种传递数据的方式，get也可以把数据传到服务器，他们的本质都是发送请求和接收结果。只是组织格式和数据量上面有差别，http协议里面有介绍 2. get是把参数数据队列加到提交表单的ACTION属性所阅读全文

posted @ 2012-08-14 11:52 del88 阅读(71) 评论(0) 推荐(0) 编辑

2012年7月24日

delphi 获取IP地址和计算机名--归纳

摘要：几个在Delphi 中取本机的计算机名、IP地址、Windows登录的用户名的函数. uses Windows, WinSock; { ComputerLocalIP } //取本机的 IP 地址 function ComputerLocalIP: string; var ch: array[1.. 阅读全文

posted @ 2012-07-24 10:37 del88 阅读(6) 评论(0) 推荐(0) 编辑

2012年7月21日

delphi 新奇特功能--Tbutton-bsCommandLink-鼠标点击后动画显示--超人性化日

摘要： 1.首先来看imagelist中的图片 2.HotImageIndex产生的效果,就是鼠标放上去的时候,HotImage显示出来如下： 3.超人性化功能来了 -- 这个的效果是点击之后,自动闪烁显示，切换imageindex和这个imageindex对应的图像，意思是当前这个按钮被点击了，阅读全文

posted @ 2012-07-21 21:09 del88 阅读(46) 评论(0) 推荐(0) 编辑

2012年7月17日

spylite24超给力工具,用这个以后我可以联想直接操控别人的软件,不知道是什么原理--第一篇用这个工具查看别人的软件用的是什么控件

摘要：前戏：用这个工具以后我完全可以做外挂，要好好学学了。。。下载地址：http://files.cnblogs.com/del88/spylite24.zip 第一篇：用这个工具获取别人软件用的是什么控件：阅读全文

posted @ 2012-07-17 20:07 del88 阅读(58) 评论(0) 推荐(0) 编辑

如何将光标焦点放在memo控件的第一行?

摘要： memo有这样方法可以实现，例如：Memo1.SelStart:=j;Memo1.SelLength:=j;Memo1.SetFocus;其中，j表示光标移动的位置。 Memo1.Lines.Add(ADODataSet_fat.FieldByName( 'Name ').AsString); // 阅读全文

posted @ 2012-07-17 09:53 del88 阅读(8) 评论(0) 推荐(0) 编辑

2012年7月13日

TOpenDialog 过滤文件的后缀 Filter-自己

摘要： Filter 属性赋值为一字符串用于过滤文件类型; 字符串说明如下： ‘|’分割的两个，一个是注释，一个是真的Filter，显示出来的是那个注释。如果要一次显示多中类型的文件，用分号分开。如： Open1.Filter="图片文件(*.jpg,*.gif,*.bmp)|*.jpg;*.gif;* 阅读全文

posted @ 2012-07-13 22:25 del88 阅读(20) 评论(0) 推荐(0) 编辑

2012年7月6日

DBGridEh实现hint显示单元格容纳不下的文本内容

摘要：设置Column[i]的ToolTips为TrueDBGridEh的ShowHint为True当容不下时就会出现Hint 当移动鼠标到该单元格时，可以显示单元格容纳不下的文本内容阅读全文

posted @ 2012-07-06 10:49 del88 阅读(12) 评论(0) 推荐(0) 编辑

2012年7月2日

edit 自动在中间插入代码且光标锁定在插入后的位置

摘要： edit控件，怎样分别获取光标所在位置前面、后面的字符串 showmessage( '光标前："' +copy(edit1.Text,1,edit1.SelStart) +'" 光标后："' +copy(edit1.Text,edit1.SelStart+1,length(edit1.Text)) 阅读全文

posted @ 2012-07-02 21:33 del88 阅读(2) 评论(0) 推荐(0) 编辑

Edit 文本的选择与光标位置

摘要： //Edit 文本的选择与光标位置 procedure TForm1.Button1Click(Sender: TObject); begin Edit1.SetFocus; //给于焦点 SendMessage(Edit1.Handle,EM_SETSEL,0,1); //选择第一个字符 Send 阅读全文

posted @ 2012-07-02 17:59 del88 阅读(5) 评论(0) 推荐(0) 编辑

TSrollBox 跟随鼠标滚动

摘要：方法一: 于Form或ScrollBox的MouseWheel事件中添加如下代码: if WheelDelta <0 then scrollbox1.Perform(WM_VSCROLL,SB_LINEDOWN,0) else scrollbox1.Perform(WM_VSCROLL,SB_LIN 阅读全文

posted @ 2012-07-02 00:46 del88 阅读(13) 评论(0) 推荐(0) 编辑

2012年6月28日

win7下strtodatetime兼容方案-

摘要：封装成了一个TFastDateTime类， 2013-03-12 补充暂时用自动修改用户电脑的日期格式的方法 Delphi中StrToDateTime函数TFormatSettings参数的使用 var FSetting : TFormatSettings; DateTime1: tDateTim 阅读全文

posted @ 2012-06-28 21:54 del88 阅读(17) 评论(0) 推荐(0) 编辑

2012年6月27日

Tedit-Keypress,keydown事件--判断按下的是不是回车

摘要： delphi 中 tedit组件，如何判断用户按下的是否是enter键？在Delphi中，对于TEdit组件，你可以通过处理其OnKeyPress事件来判断用户是否按下了Enter键。这个事件在用户按下并释放一个键时被触发。下面是一个简单的示例代码，演示了如何在TEdit组件的OnKeyPres 阅读全文

posted @ 2012-06-27 14:21 del88 阅读(31) 评论(0) 推荐(0) 编辑

2012年6月25日

wamp 增加网站--配置虚拟目录-自己百帖总结绝对正确方法

摘要： 1.建立wamp/www/下建立shopdaxia文件夹 2.增加虚拟目录(wamp可以自动给增加) --写的时候只写如shopdaxia 3.编辑httpd.conf,让虚拟目录启动 -- -- --补充 4. 修改httpd-vhosts.conf --补充 2012-06-28补充--上面写错阅读全文

posted @ 2012-06-25 20:31 del88 阅读(24) 评论(0) 推荐(0) 编辑

2012年6月14日

FastReport 托出来的字段的宽度取决于数据库的字段长度

摘要：阅读全文

posted @ 2012-06-14 21:13 del88 阅读(1) 评论(0) 推荐(0) 编辑

2012年6月10日

怎样在Delphi中调用API函数使窗口不在任务栏中显示出来

摘要：在 FormCreate首句加： SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); 请问如何实现窗口不在任务栏上显示出来？如QQ，启动后任务栏上并没他的图标(注意：不是托盘啊！)。我现在想写个程序，启动窗体后不在任务栏阅读全文

posted @ 2012-06-10 01:17 del88 阅读(9) 评论(0) 推荐(0) 编辑

2012年6月7日

Delphi XE2 为 VCL 提供的 14 种样式

摘要：其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种. 在空白窗体上添加 ListBox1 等控件, 测试代码: uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Sender: 阅读全文

posted @ 2012-06-07 21:55 del88 阅读(14) 评论(0) 推荐(0) 编辑

2012年6月5日

TEdit设置焦点和判断当前是否是焦点

摘要： {锁定扫描快递单号输入框} InputScanFahuoOutSid_edt.SetFocus; if InputScanFahuoOutSid_edt.Focused then begin //dosomething end; 阅读全文

posted @ 2012-06-05 12:47 del88 阅读(3) 评论(0) 推荐(0) 编辑

2012年6月2日

EMS和顺丰单号生成

摘要：下载下来是个txt文本里面的代码如下： ///////////////////////////////////////// qq:654362790 o(∩_∩)o 哈哈 ///////////////////////////////////////// function TForm1.EMS(EM 阅读全文

posted @ 2012-06-02 15:44 del88 阅读(72) 评论(0) 推荐(0) 编辑

2012年5月25日

webbrowser获取当前打开页面的URL的方法--我

摘要：网上说的：我们可以先申明一个IWEBBROWSER接口对象，然后调用该接口的LocationURL即可获取！ var myurl: IWebBrowser; begin myurl := WebBrowser1.Application as IWebBrowser; ShowMessage(myu 阅读全文

posted @ 2012-05-25 14:52 del88 阅读(2) 评论(0) 推荐(0) 编辑

增加表格底部合计框--自己总结

摘要：注意：数据库是varchar的是没有办法合计的，像这样的可以动态添加下。如下：代码为： WeiTopTradeShow_dbgeh.FieldColumns['top_payment'].Footer.ValueType := fvtStaticText; WeiTopTradeSho 阅读全文

posted @ 2012-05-25 14:31 del88 阅读(16) 评论(0) 推荐(0) 编辑

2012年5月24日

做网线排线的顺序--我【网线水晶头接法】

摘要：排序顺序，一定是背熟啊：水晶头的背面（即：漏金属的一面）从作到右的顺序为：橙黄，橙，绿白，蓝，蓝白，绿，棕白，棕。网线的两端都一样都是这个顺序。 2013.12.10 补充。 http://baike.baidu.com/view/4643791.htm 网线水晶头有两种接法，一种是直连互联法，阅读全文

posted @ 2012-05-24 17:49 del88 阅读(18) 评论(0) 推荐(0) 编辑

2012年5月23日

checklistbox 显示多列

摘要：阅读全文

posted @ 2012-05-23 17:24 del88 阅读(7) 评论(0) 推荐(0) 编辑

2012年5月22日

pagecontrol获取选中选项卡的值

摘要： if PrintTab_pc.ActivePage.Caption = '已付款未打印 (打印订单)' then begin MyTopTradeApi := TTopTradeApi.Create; try {把原来勾选的取消} MyTopTradeApi.UnXuanzhongAllTid; { 阅读全文

posted @ 2012-05-22 23:32 del88 阅读(1) 评论(0) 推荐(0) 编辑

2012年5月18日

新公司的经营类目

摘要：计算机编程计算机软件设计计算机软件维护计算机软件更新计算机软件咨询计算机软件升级计算机软件出租替他人创建和维护网站网络服务器的出租编程就是开发吧软件开发及维护软件产品销售网络技术服务阅读全文

posted @ 2012-05-18 14:55 del88 阅读(7) 评论(0) 推荐(0) 编辑

LinkLabel 的caption 写法

摘要：可以这样写：asdfasdfsadf<a href="http://www.baidu.com">asdfadf</a>asdfasdfasdfasdf把连接夹杂在里面然后在： onlinkclick事件中写：阅读全文

posted @ 2012-05-18 00:07 del88 阅读(3) 评论(0) 推荐(0) 编辑

2012年5月17日

dbgrideh 列的显示格式(日期)

摘要：阅读全文

posted @ 2012-05-17 16:26 del88 阅读(12) 评论(0) 推荐(0) 编辑

2012年5月16日

Delphi Access violations 错误窗体上下位置放错

摘要： begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TfrmClientDm, frmClientDm); Application.CreateForm(TfrmMai 阅读全文

posted @ 2012-05-16 16:11 del88 阅读(5) 评论(0) 推荐(0) 编辑

2012年5月12日

delphi XE2 多种皮肤样式静、动态设置方法

摘要：静态方式： 1、新建VCL Forms Application； 2、打开菜单Project - Application - Appearance； 3、在Custom Styles中可选择所有默认带的皮肤样式； 4、设置Default style后，启动软件后便以默认的样式显示界面。动态方式：阅读全文

posted @ 2012-05-12 22:27 del88 阅读(22) 评论(0) 推荐(0) 编辑

2012年5月2日

Delphi中为DBNavigator的按钮加中文

摘要： DBNavigator1.BtnClick(nbFirst);// '第一条 ' DBNavigator1.BtnClick(nbPrior); // '上一条 ' DBNavigator1.BtnClick(nbNext); // '下一条 ' DBNavigator1.BtnClick(nbLa 阅读全文

posted @ 2012-05-02 00:03 del88 阅读(38) 评论(0) 推荐(0) 编辑

2012年4月29日

郑州曼哈顿的房子是否可以注册公司？

摘要：在未来路和金水大道交叉口的曼哈顿广场，住宅楼上的单元房是否可以进行工商注册，注册成公司地址？可以。因為國家剛出臺了這項法規 http://wapiknow.baidu.com/question/224843751.html?ssid=&from=844h&bd_page_type=1&uid=bd 阅读全文

posted @ 2012-04-29 19:00 del88 阅读(9) 评论(0) 推荐(0) 编辑

2012年4月13日

progressbar positon 如果大于max 会自动改成max--终于体会到属性的作用了

摘要：阅读全文

posted @ 2012-04-13 22:30 del88 阅读(11) 评论(0) 推荐(0) 编辑

2012年4月11日

delphi禁止某窗口被关闭的方法

摘要：关键词：Delphi,禁止窗口关闭，Alt+F4delphi禁止某窗口被关闭的方法逆流而上的鱼发表于 2006-9-19 10:51:00步骤1、最基本的，关闭该窗口右上角的“×”键方法：form1的BorderIcons属性，bisystemmenu设为false步骤2：任务栏右键屏蔽“关闭”选... 阅读全文

posted @ 2012-04-11 22:28 del88 阅读(2113) 评论(0) 推荐(0) 编辑