摘要：本例效果图: 代码文件: 窗体文件: 阅读全文

摘要：procedure SaveBmpAsIcon(const Bmp: TBitmap; const Icon: string; const SmallIcon: Boolean; const Transparent: Boolean; const X, Y: Integer); // Bmp : Bitmap图片 // Icon : 最终输出的icon文件全路径... 阅读全文

摘要：Delphi的高效不多说... 俗话说；真正的程序员用C语言，聪明的程序员用Delphi，一点都不假，和C++比它比C++更简单，更容易上手,功能丝毫不逊色C++，比起VB，毫无疑问比VB好多了，重要的是快，高效！ 高效的Pascal编译器，强大的数据库支持==....Delphi在进行计算量相当大 阅读全文

摘要：ScrollBars := ssBoth 阅读全文

摘要：elphi Timage 加上滚动条方法 1:将 Timage 放入 TScrollBox内，即 [1]设image1.parent:= ScrollBox1; [2]在Object Inspector中将 Timage 拖到 TScrollBox上，使之成为子结点 [3]先拖一个TScrollBo 阅读全文

摘要：项目中碰到此问题，之前一直没留意，研究一番用上，以做备忘。参考其它解决方法，不尽完美，自试之，达到效果。 直上代码： 阅读全文

摘要：关于Listbox的问题? 1. 如何设置Listbox的行间距? 2. 如何实现当鼠标点击Listbox时,被选中的那一行在鼠标点击处出现一控件? 也就是怎么计算出被选中的那一行鼠标点击处的绝对坐标位置(X,Y)? abs(ListBox1.Font.Height);就是高度 ListBox1.F 阅读全文

摘要：delphi 如何让ScrollBox的内容与滚动条一起实时滚动 拖动滚动条后只有释放鼠标键，ScrollBox的内容才会滚动到实际位置，不爽。请问高人，怎样才能使拖动ScrollBox的滚动条的同时实时滚动内容？ 在OBject Inspector 里 将ScrollBox 的 垂直同步实时滚动 阅读全文

摘要：如果WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 阅读全文

摘要：TDataSet控件以及它的继承控件，例如TSimpleDataSet/TClientDataSet等都可以使用Locate方法在结果数据集中查寻数据。程序首先必须使用SQL命令从后端数据库中取得数据并且形成结果数据集，然后才使用Locate方法查寻数据。当使用Locate方法查寻数据时，开发人员可 阅读全文

摘要：在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等 删除：CheckListBox.DeleteSelected; 上下移： CheckListBox.Items.Move 删除用 CheckListBox1.Items.Delete(In 阅读全文

摘要：procedure THRForm.Button1Click(Sender: TObject); var D:TDateTime; s:string; begin D:=VarToDateTime('05-10-14 04:35PM'); S:=FormatDatetime('YYYY-MM-DD HH:MM:SS',D); showmessage(s); end; 尤其是... 阅读全文

摘要：看到有人这样用VarToDateTime、存下来、强大的日期通杀 阅读全文

摘要：一、新建一控件 打开Delphi主菜单Cpmponent—New Cpmponent： 二、配置参数 点击OK键，打开Unit单元文件。 三、修改单元文件 unit LyCalendar; interface uses Windows, Messages, SysUtils, Variants, C 阅读全文

摘要：但我们为Label设置了热键的时刻，我们按这个热键，就会移动核心倒FocusControl指定的控件上！例如，设置Label.Caption:='Test For FocusControl(&F)'，Label.FocusControl-->Edit1，那么当我们按Alt+F的时刻，Edit1就会获 阅读全文

摘要：//判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; if um_rate 1) then abort else if (vp_mstr.F('vp_um').AsString vp_mstr.F('part_um'... 阅读全文

摘要：如何有效地让一个“ParentFont = False”子控件使用与父母相同的字体名称？(How to efficiently let a `ParentFont = False` child control to use same font name as parent?) 问 题 Most VC 阅读全文

摘要：窗体的构造函数和创建事件和OldCreateOrder属性有很大的关系。 情况1： 如果窗体继承自TForm，且有如下形式： 1. constructor TForm1.Create(AOwner: TComponent); 2. begin 3. inherited; 4. Button1.Cap 阅读全文

摘要：如果你不要行标志的话,你可以不改控件 直接注释掉这一行: ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind); 要标志的话,在DrawIndicator 阅读全文

摘要：ClientDataSet的数据查找。我所介绍的心得和技巧都是用ClientDataSet来做范例，也可以应用于其他的一些DataSet。废话就不多说了。我们还是先看代码，让后再总结。1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法，遍历所有数据：procedure TForm1 阅读全文