随笔分类 -  Delphi

delphi中登录界面关闭直接现实主界面是怎么回事?
摘要:修改工程文件:Application.Initialize;Application.CreateForm(TmainForm, mainForm); Application.ShowMainForm:= False;if LoginForm.ShowModal then begin Applicat 阅读全文

posted @ 2017-11-18 16:48 癫狂编程 阅读(633) 评论(0) 推荐(0) 编辑

delphi制作登陆窗体
摘要:delphi登陆窗体的制作,就我知道的,可以有两种方法,一种是在工程文件中实现登陆窗体的动态调用,另一种就是在主窗体的OnCreate事件中动态创建登陆窗体,两种方法都需要将主窗体设置为Auto-create form,将登陆窗体设置为 Availabel form. 登陆窗体: Form1; 主窗 阅读全文

posted @ 2017-11-18 16:03 癫狂编程 阅读(1047) 评论(0) 推荐(0) 编辑

Delphi用户登录窗口框架
摘要:经常看到一些新手在CSDN上问登录窗口如何写,也看到N多人form1.show/form1.create/…中做form2.show之类。实在看不下去了。这种写法实在不是很好,于是还是把自己理解的登录框架来写写吧。希望能给新人一些引导(可不要误导了呀!)1.登录窗口在什么地方调用?我说:最好在项目文 阅读全文

posted @ 2017-11-18 16:02 癫狂编程 阅读(2216) 评论(0) 推荐(0) 编辑

Delphi7如何实现让Tedit显示文字垂直居中(上下居中)
摘要:通过下面的组件,可以在输入文字的时候自动垂直居中 直接把下面代码保存到Unit1.pas即可 当这个保存成unit1.pas 后,然后通过delphi组件安装功能来安装组件,具体安装方法可以到网上查方法 阅读全文

posted @ 2017-11-18 14:08 癫狂编程 阅读(1367) 评论(0) 推荐(0) 编辑

delphi Form属性设置 设置可实现窗体无最大化,并且不能拖大拖小
摘要:以下设置可实现窗体无最大化,并且不能拖大拖小BorderIcon 设为 biMax[False] biHelp [False]BorderStyle 设为 bsSingle 参考 可以通过设置窗体的属性以及编程的方法,限制和控制窗体的变化。如让窗体不能最小化、最大化. 1.通过属性设置方法使用For 阅读全文

posted @ 2017-11-18 13:02 癫狂编程 阅读(1851) 评论(0) 推荐(0) 编辑

学习 TTreeView [1] - TTreeNodes、TTreeNode 与 Items、Items.Count、Items.Clear
摘要:填写 TTreeView 的内容一般是这样开始的(下图), 不过我觉得最好习惯用动态建立. 打个比方: 譬如 TreeView 是一个军营的"营部"! 这里会有营长、连长、排长、班长、战士等等.我们把它们分成三种对象: 营部、营长(总当家)、营长的下属. 在这里的对应关系是:TTreeView - 阅读全文

posted @ 2017-11-07 21:23 癫狂编程 阅读(1469) 评论(0) 推荐(0) 编辑

学习 TTreeView [3] - Add、AddChild、AddFirst、AddChildFirst、Parent
摘要:本例效果图: 阅读全文

posted @ 2017-11-07 21:22 癫狂编程 阅读(683) 评论(0) 推荐(0) 编辑

学习官方示例 - TForm.BorderIcons
摘要:本例用一行代码禁用了最大化按钮. 阅读全文

posted @ 2017-11-07 20:59 癫狂编程 阅读(277) 评论(0) 推荐(0) 编辑

删除或添加最大化、最小化按钮 - 回复 "Tommy the CAT" 的问题
摘要:本例效果图: 代码文件: 设计时修改方法: 阅读全文

posted @ 2017-11-07 20:58 癫狂编程 阅读(253) 评论(0) 推荐(0) 编辑

我常用的delphi 第三方控件
摘要:有网友问我常用的控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 Devexpress VCL 这个基本上覆盖了系统界面及数据库展示的方方面面,是做桌面系统必备的一套控件,目前的版本是2011.2.3, 支持win32 及win64。 AutoUpgrader 这个是自动更新的一个小 阅读全文

posted @ 2017-10-26 23:21 癫狂编程 阅读(624) 评论(0) 推荐(0) 编辑

Delphi中Form的position属性与代码自定义窗体位置
摘要:通过Form的Position属性可设置窗体的初始位置,如选择DesktopCenter为桌面中心,ScreenCenter为屏幕中心,等等。 这个属性在很多时候简化了程序代码。 但是,如果设置了position为ScreenCenter和DesktopCenter等,在窗体oncreate和ons 阅读全文

posted @ 2017-10-26 17:46 癫狂编程 阅读(1940) 评论(0) 推荐(0) 编辑

Delphi窗体部分属性
摘要:Align属性:控制窗体显示时的对齐方式(注:是相对于父窗体的对齐方式。如果该窗体是主窗体则没有父窗体)(与anchor不同在于,anchor定义的对齐是固定到边界的距离) 默认值为alNone.其他值有:alBottom(让该窗体显示在父窗体的底部),alClient(让该窗体填满整个父窗体),a 阅读全文

posted @ 2017-10-26 17:45 癫狂编程 阅读(352) 评论(0) 推荐(0) 编辑

adoquery.refresh和adoquery.query的区别
摘要:大的区别没有1: requery是通过重新发出原始命令并再次检索数据,可使用 Requery 方法刷新来自数据源的 Recordset 对象的全部内容。调用该方法等于相继调用 Close 和 Open 方法。requery比refresh要安全些(自我感觉),使用refresh时,必须保证数据集是活 阅读全文

posted @ 2017-10-21 15:54 癫狂编程 阅读(365) 评论(0) 推荐(0) 编辑

Delphi中的Sender:TObject对象解析
摘要:procedure TForm1.Button1Click(Sender: TObject); begin end; 解析:Procedure是过程,TForm是窗体类,加上数字就是某个窗体,像TForm1就是Form1窗体。 Button1是你的按钮控件的名称,Button1Click就是按钮的单 阅读全文

posted @ 2017-10-21 15:50 癫狂编程 阅读(394) 评论(0) 推荐(0) 编辑

ADODataSet与ADOQuery的区别
摘要:ADODataSet组件 此组件功能是非常强大的,通过ADODataset,可以直接与一个表进行联接,也可以执行SQL语句,还可以执行存储过程,可以说集ADOTable、 ADOQuery、 ADOStoreProc三者的功能于一身。在使用时,首先设定其Connection属性为ADOConnect 阅读全文

posted @ 2017-10-21 15:49 癫狂编程 阅读(1107) 评论(0) 推荐(0) 编辑

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

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

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

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

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

posted @ 2017-10-14 23:27 癫狂编程 阅读(296) 评论(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 癫狂编程 阅读(226) 评论(0) 推荐(0) 编辑

导航

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