del88 - 博客园

2012年7月2日

摘要： 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 阅读(11) 评论(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 阅读(24) 评论(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 阅读(8) 评论(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 阅读(11) 评论(0) 推荐(0) 编辑

2012年6月5日

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

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

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

2012年6月2日

EMS和顺丰单号生成

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

posted @ 2012-06-02 15:44 del88 阅读(69) 评论(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 阅读(13) 评论(0) 推荐(0) 编辑

2012年5月24日

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

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

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

2012年5月23日

checklistbox 显示多列

摘要：阅读全文

posted @ 2012-05-23 17:24 del88 阅读(6) 评论(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 阅读(19) 评论(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 阅读(28) 评论(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 阅读(8) 评论(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 阅读(2109) 评论(0) 推荐(0) 编辑

2012年4月10日

dbgrideh 的属性数值靠左显示属性--必须连上再设置靠左属性才可

摘要：阅读全文

posted @ 2012-04-10 00:02 del88 阅读(7) 评论(0) 推荐(0) 编辑

2012年4月9日

WebBrowser的8个方法、13个属性和事件

摘要： WebBrowser的8个方法、13个属性和事件方法说明 GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项 GoForward 相当于IE的“前进”按钮，使你在当前历史列表中前进一项　GoHome 相当于IE的“主页”按钮，连接用户默认的主页　GoSearch 相当于IE的“ 阅读全文

posted @ 2012-04-09 18:00 del88 阅读(35) 评论(0) 推荐(0) 编辑

Delphi WebBrowser始终在当前窗口打开新网页

摘要： procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch; var Cancel: WordBool); begin PpDisp := WebBrowser2.Application; // 新的窗口阅读全文

posted @ 2012-04-09 17:58 del88 阅读(9) 评论(0) 推荐(0) 编辑

2012年4月7日

DBGridEh-IndicatorTitle 可见列(转+自己)

摘要： procedure TForm1.FormCreate(Sender: TObject);beginDBGridEh1.DataSource:=DataSource1;DataSource1.DataSet:=ADOQuery1;ADOQuery1.ConnectionString:='Provid 阅读全文

posted @ 2012-04-07 17:39 del88 阅读(43) 评论(0) 推荐(0) 编辑

2012年4月5日

DBGridEh,DBGrid点击标题排序

摘要：最近在找关于解决DBGridEh,DBGrid点击标题排序的最简单方法的同时，发现说法很多，但是没有找到一个比较详细的。所以我在这里做一个小的总结，有不足之处请大家多多指教。首先说下关于DBGridEh的排序，主要有两种解决方法。 1，只需设置属性，不需要写排序代码 //为什么要强调这里呢，因为阅读全文

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

DBGridEH点击标题自动排序的设定及排序标志相反BUG的修正(转) --根本就没有bug 没事找事

摘要：一、DBGridEH点击标题自动排序的设定① 按DataSet源类型的不同，在工程中引用EhLib相应排序单元文件，如uses EhLibAdo，uses EhLibCDS，uses EhLibBDE、uses EhLibDBX等，我一般都会在一个公共文件中进行引用，这样就无须在所有用到DBGrid 阅读全文

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

dbgrideh 标题排序（自己总结1）

摘要：只要设置下面三个属性：ColumDefValues->Title->TitleButton设为TRUE sortlocal 设为TRUEOptionsEH->dghautosortmarking设为TRUE 最后，一定要记得在pas文件的uses里引用上ehlib***，我这里的是ehlibCDS，阅读全文

posted @ 2012-04-05 14:03 del88 阅读(113) 评论(0) 推荐(0) 编辑

2012年4月4日

TCombobox 展开下拉框及在点击的时候动态获取数据展开下拉框

摘要： Combobox1.DroppedDown:=True;//让下拉框下拉如果要动态的获取数据，则要在OnDropDown事件中写代码;在OnClick和OnChange事件中都是不行的。如： procedure TfrmMain.WeiCompanyName_cbbDropDown(Sender: 阅读全文

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

dbgrideh 改变行颜色和字体颜色

摘要： procedure TfrmMain.YiBatchTopTradeShow_dbgehDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawSt 阅读全文

posted @ 2012-04-04 10:16 del88 阅读(12) 评论(0) 推荐(0) 编辑

2012年4月1日

判断TreeView中有没有值的方法

摘要： ShowMessage(IntToStr(PrintTime_tree.SelectionCount)); if PrintTime_tree.SelectionCount <> 0 then begin ShowMessage(IntToStr(PrintTime_tree.SelectionCo 阅读全文

posted @ 2012-04-01 09:46 del88 阅读(8) 评论(0) 推荐(0) 编辑

2012年3月28日

TComboBox相关属性和方法

摘要： delphi下拉列表组件（TComboBox） TComboBox 组件组合了一个编辑框与一个可滚动的列表，也称组合框组件，用户可以从列表中选择项目，也可以直接在编辑框内输入内容。下拉列表组件（TComboBox） TComboBox 组件组合了一个编辑框与一个可滚动的列表，也称组合框组件，用户可阅读全文

posted @ 2012-03-28 21:56 del88 阅读(125) 评论(0) 推荐(0) 编辑

2012年3月26日

如何在自己的系统中打开并关闭外部程序

摘要：大家知道，在一个大型复杂的系统中，有时会调用一些外部程序来帮助我们完成某些特定功能。然而，如何打开并关闭这些外部程序呢？也许，这是一个老生常谈的话题，但笔者仍要继续讨论这个问题，原因有二：一是解决这个问题的方法很重要，并经常会遇到；二是大多数参考书提及的解决办法不全面,仍有很多朋友有疑问。下面，阅读全文

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

2012年3月23日

Adoquery Locate 查询-（2）

摘要：偶不明白：locate函数的：loCaseInsensitive方式与lopartialkey方式各代表什么意思？ TLocateOption = (loCaseInsensitive, loPartialKey); TLocateOptions = set of TLocateOption; 阅读全文

posted @ 2012-03-23 23:11 del88 阅读(39) 评论(0) 推荐(0) 编辑

2012年3月22日

delphi 批量修改替换要修改的内容图

摘要：阅读全文

posted @ 2012-03-22 17:54 del88 阅读(5) 评论(0) 推荐(0) 编辑

2012年3月17日

RadioGroup 超方便的自动排版--偶然发现

摘要：阅读全文

posted @ 2012-03-17 16:56 del88 阅读(2) 评论(0) 推荐(0) 编辑