癫狂编程

摘要： 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 的 垂直同步实时滚动 阅读全文

摘要： 界面是人机交互的门户，对产品至关重要。在界面开发中只有想不到没有做不到的，有好的想法，当然要尝试着做出来。对滚动条的扩展，现在有很多类是的例子。 VS2015的代码编辑是非常强大的，其中有一个功能可以把滚动态变成MinMap，可以通过Options->Text Editor->C/C++->Scro 阅读全文

摘要： 如果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 阅读全文

摘要： 问题日常开发中，需要对界面进行控制，不符合条件时禁用某些功能菜单。例如【采购订单填制】界面，要实现供应商资质证书效期提醒功能，即近效期提醒，超效期禁止采购，如何实现呢？ 分析使用KSOA新增加的zl_func函数，可以实现单据界面交互控制要求。先编写资料检索方案，再在表单的域执行函数调用检索方案。 阅读全文

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

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

摘要： 1、Bookmark var p:pointer; procedure TForm1.Button1Click(Sender: TObject);//加个标签 begin p:=cxGrid1DBTableView1.DataController.DataSet.GetBookmark; end; 阅读全文