随笔分类 -  Delphi

上一页 1 ··· 45 46 47 48 49 50 51 52 53 ··· 64 下一页

使用 TListView 控件(4)
摘要:本例效果图: 代码文件: 窗体文件: 阅读全文

posted @ 2019-02-27 13:54 癫狂编程 阅读(346) 评论(0) 推荐(0)

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

posted @ 2019-02-27 13:00 癫狂编程 阅读(1844) 评论(0) 推荐(0)

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

posted @ 2019-02-26 20:29 癫狂编程 阅读(850) 评论(0) 推荐(0)

delphi CheckListBox 添加滚动条
摘要:ScrollBars := ssBoth 阅读全文

posted @ 2019-02-26 20:03 癫狂编程 阅读(706) 评论(0) 推荐(0)

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

posted @ 2019-02-26 20:02 癫狂编程 阅读(895) 评论(0) 推荐(0)

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

posted @ 2019-02-26 19:50 癫狂编程 阅读(630) 评论(0) 推荐(0)

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

posted @ 2019-02-26 17:43 癫狂编程 阅读(2921) 评论(0) 推荐(0)

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

posted @ 2019-02-26 17:37 癫狂编程 阅读(3116) 评论(0) 推荐(0)

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

posted @ 2019-02-26 17:03 癫狂编程 阅读(230) 评论(0) 推荐(0)

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

posted @ 2019-02-26 12:47 癫狂编程 阅读(1563) 评论(0) 推荐(0)

delphi checklistbox用法
摘要:在Delphi中checklistbox中高亮选中(不论是否Checked)能够进行操作么?删除,上下移动等等 删除:CheckListBox.DeleteSelected; 上下移: CheckListBox.Items.Move 删除用 CheckListBox1.Items.Delete(In 阅读全文

posted @ 2019-02-26 12:00 癫狂编程 阅读(1684) 评论(0) 推荐(0)

Delphi字符串转日期,强大到窒息,VarToDateTime解决了困扰很久的小问题
摘要: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; 尤其是... 阅读全文

posted @ 2019-02-26 11:36 癫狂编程 阅读(6178) 评论(0) 推荐(0)

DELPHI 字符串与日期格式互转
摘要:看到有人这样用VarToDateTime、存下来、强大的日期通杀 阅读全文

posted @ 2019-02-26 11:34 癫狂编程 阅读(4562) 评论(0) 推荐(0)

继承Tcalendar控件,让当天日期醒目显示
摘要:一、新建一控件 打开Delphi主菜单Cpmponent—New Cpmponent: 二、配置参数 点击OK键,打开Unit单元文件。 三、修改单元文件 unit LyCalendar; interface uses Windows, Messages, SysUtils, Variants, C 阅读全文

posted @ 2019-02-25 19:22 癫狂编程 阅读(411) 评论(0) 推荐(0)

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

posted @ 2019-02-25 19:16 癫狂编程 阅读(415) 评论(0) 推荐(0)

Delphi Try Except 实例
摘要://判断单位转换率 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'... 阅读全文

posted @ 2019-02-25 18:23 癫狂编程 阅读(162) 评论(0) 推荐(0)

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

posted @ 2019-02-25 18:17 癫狂编程 阅读(576) 评论(0) 推荐(0)

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

posted @ 2019-02-25 17:44 癫狂编程 阅读(576) 评论(0) 推荐(0)

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

posted @ 2019-02-24 00:06 癫狂编程 阅读(727) 评论(0) 推荐(0)

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

posted @ 2019-02-23 23:03 癫狂编程 阅读(423) 评论(0) 推荐(0)

上一页 1 ··· 45 46 47 48 49 50 51 52 53 ··· 64 下一页

导航

好的代码像粥一样,都是用时间熬出来的