随笔分类 -  Delphi

修改VCL源码实现自定义输入对话框
摘要:来自:https://yq.aliyun.com/wenji/88428 通过修改VCL源码实现自定义输入对话框 在BCB中有两个函数可以实现输入对话框:InputBox和InputQuery,其实InputBox也是调用了InputQuery,这个函数有几个缺点: (1).输入对话框上的按钮是英文 阅读全文

posted @ 2017-10-20 10:37 癫狂编程 阅读(420) 评论(0) 推荐(0) 编辑

DBGrid 各属性的设置
摘要:在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程,我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色,以及相关的字体的 阅读全文

posted @ 2017-10-14 23:39 癫狂编程 阅读(2095) 评论(0) 推荐(0) 编辑

DevexpressVCL v51
摘要:Dev经典套件v49版 支持Delphi2010DevExpress公司出品的Borland Delphi和C++ Builder的控件(包含完整源代码).ExpressVerticalGrid:就是以前大家熟知的ExpressInspector。用于 Delphi 和 C++Builder的“反向 阅读全文

posted @ 2017-10-14 23:27 癫狂编程 阅读(300) 评论(0) 推荐(0) 编辑

我创建了一个托盘图标,可以正常使用,点击右键打开菜单。问题是如果点击右键后不选择其中一个菜单项进行操作的话,它就总不消失。
摘要:SetForegroundWindow(FParentForm.Handle); GetCursorPos(Point); IconPopupMenu.Popup(Point.x, Point.y); 你在显示菜单之前,加上第一行代码 阅读全文

posted @ 2017-10-12 22:11 癫狂编程 阅读(171) 评论(0) 推荐(0) 编辑

TMainMenu - 隐藏与显示菜单
摘要://隐藏与显示菜单 Self.Menu := nil; {隐藏菜单} Self.Menu := MainMenu1; {显示菜单} 阅读全文

posted @ 2017-10-12 22:10 癫狂编程 阅读(230) 评论(0) 推荐(0) 编辑

delphi简单单向字符串加密函数
摘要:delphi用久了有的时候得给密码加密一下,简单点就行了,这个函数还是不错的。 const XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); // function Enc(Str:String):String;//字符加密函 阅读全文

posted @ 2017-09-30 00:54 癫狂编程 阅读(292) 评论(0) 推荐(0) 编辑

窗体的基本属性
摘要:窗体利用很多属性来确定窗体的外部形态和特征,在设计阶段可以用‘Object Inspector’来设置窗体的属性。下面就对窗体的 本属性加以详细的介绍。 1.Active属性 该属性用于指示窗体是否处于激活状态(拥有输入焦点)如果窗体处于当前打开窗体,则他的Active属性值变为True 否则为Fa 阅读全文

posted @ 2017-09-28 01:55 癫狂编程 阅读(1459) 评论(0) 推荐(0) 编辑

delphi property read writer 如何使用
摘要:type TMyClass = class(TObject) private FMyName: string; FMyAge: Integer; procedure SetAge(age: Integer); function GetAge(): Integer; published propert 阅读全文

posted @ 2017-09-23 22:37 癫狂编程 阅读(969) 评论(5) 推荐(0) 编辑

Delphi 常用属性说明(超长)
摘要:Delphi组件的常用事件Onclick——当单击时触发这个事件中的代码Onchange——当改变该组件内容时触发其中的代码Oncreate——当创建时触发这个事件中的代码Onclose——当关闭的时候触发其中的代码OnKeyDown——当按下键盘上的键时触发该处代码OnKeyUp——当松开键盘上的 阅读全文

posted @ 2017-09-23 22:33 癫狂编程 阅读(654) 评论(0) 推荐(0) 编辑

对delphi中的数据敏感控件的一点探索
摘要:一直对delphi数据敏感控件很好奇,感觉很神奇。只要简单设置一下,就显示和编辑数据,不用写一行代码。 如果不用数据敏感控件,编辑一个表字段数据并保存,我相信应用如下代码。 Table1.edit, Table1.fieldByName (‘***’) .AsString:= ‘***’; //Ta 阅读全文

posted @ 2017-09-18 01:52 癫狂编程 阅读(525) 评论(0) 推荐(0) 编辑

delphi 右键删除dbgrid行
摘要:Delphi DBGrid右键删除行并提交至数据库.在form上添加,控件TPopupMenu,并指定右键名称:删行 2.编写删除语句: If ADOQuery1.State in [dsEdit, dsInsert] then ADOQuery1.Post; If ADOQuery1.Record 阅读全文

posted @ 2017-09-17 23:18 癫狂编程 阅读(853) 评论(0) 推荐(0) 编辑

在DBGrid中,单击单元格选择整行,双击又可编辑单元格
摘要:在设计过程中,有时候数据较大量,field 较多的时候,只是点击单元格可能会对某个field的数据误操作(如数据错行),为此才会想到这个问题,解决办法如下:点击单元格就改当前行颜色。首先DBGRID的属性做好下设置(其实也是DBGRID默认的属性)DBGrid1->Options->dgEditin 阅读全文

posted @ 2017-09-17 22:53 癫狂编程 阅读(700) 评论(0) 推荐(0) 编辑

Delphi.XE2破解方法
摘要:我安装的是Delphi.XE2.RTM.v16.0.4256.43595.Lite.v5.0 ,安装完后打开显示是15天试用。 退出XE2后把C:\Program Files\Embarcadero\RAD Studio\9.0\License 文件夹删除。 再打开XE2就会出现注册窗口,如下图: 阅读全文

posted @ 2017-09-07 10:20 癫狂编程 阅读(1091) 评论(2) 推荐(0) 编辑

在使用ADOQuery删除数据时的处理 [问题点数:100分,结帖人isdxsc]
摘要:在使用ADOQuery删除数据时的,希望在他的事件BeforeDelete进行一些判断,符合要求的进行删除,不符合要求的终止这个删除行为,请问应该用什么语句呢?还有个比较奇怪的现象也一起请教:DBGrid的Option里,dgConfirmDelete已经设置为False,为什么我每次删除数据时,都 阅读全文

posted @ 2017-08-31 16:48 癫狂编程 阅读(282) 评论(0) 推荐(0) 编辑

delphi DBGRID 刷新定位问题 [问题点数:0分]
摘要:我程序是 adoquery+datasource+dbgrid 做的我有一个窗体:有四个按钮。分别是新建,修改,删除,刷新。新建第一条记录,dbgrid显示一条记录,新建第二条记录。DBGRID总共显示第一,第二条记录。不需要把以前记录显示出来。。修改时候,,,当修改当前记录完成后DBGRID回当前 阅读全文

posted @ 2017-08-31 15:57 癫狂编程 阅读(718) 评论(0) 推荐(0) 编辑

如何判断一条记录什么字段被修改了 [问题点数:40分,结帖人bluesukeke]
摘要:查询出来数据,在数据集编辑状态下,如何判断一条记录被修改了,哪些字段被修改了。 可用adoquery的Delta屬性。。。eg: ClientDataSet1.Delta... PS:POST前是準確的。。。 ADOQuery1.Fields[0].NewValue ADOQuery1.Fields 阅读全文

posted @ 2017-08-31 15:55 癫狂编程 阅读(664) 评论(0) 推荐(0) 编辑

delphi dbgrid 修改、更新、删除
摘要:https://zhidao.baidu.com/question/580946797.html DELPHI 中,使用 dbgrid显示数据。窗体上放置三个按钮,caption分别为:修改、删除、更新。1,修改就是直接在dbgrid中修改数据,然后保存到数据库中;2,删除,就是,当鼠标点击一条记录 阅读全文

posted @ 2017-08-31 15:31 癫狂编程 阅读(2342) 评论(0) 推荐(0) 编辑

Delphi编程中动态菜单要点归纳
摘要:一、创建菜单并添加项目 在设计程序时,有时需要动态创建菜单, 通常使用以下的语句: PopupMenu1 := TPopupMenu.Create(Self); Item := TMenuItem.Create(PopupMenu1); Item.Caption := '菜单一'; Item.OnC 阅读全文

posted @ 2017-08-31 04:12 癫狂编程 阅读(679) 评论(0) 推荐(0) 编辑

动态创建菜单和动态关联菜单项事件
摘要://动态创建四级菜单 var MainMenu:TMainMenu; SubMenu,SubMenu2,submenu3,submenu4:TMenuItem; MainMenu:=TMainMenu.Create(self); MainMenu.AutoHotkeys:=maManual; Sub 阅读全文

posted @ 2017-08-31 04:01 癫狂编程 阅读(220) 评论(0) 推荐(0) 编辑

delphi创建动态菜单
摘要:1.动态生成菜单项 varFirstItem: TMenuItem;SecondItem: TMenuItem; begin FirstItem := TMenuItem.Create(Self); FirstItem.Caption := ‘FirstName’; PopupMenu1.Items 阅读全文

posted @ 2017-08-31 03:42 癫狂编程 阅读(877) 评论(0) 推荐(0) 编辑

导航

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