摘要：
转自: https://www.cnblogs.com/maweiwei/p/7493614.html 例子1 测试 时，CPU并没有占用100% 不知道是否Delphi高版本已优化。 声明：Property OnIdle：TIdleEvent；其中：TIdleEvent是这样声明的：TIdleEv 阅读全文
摘要：
效果图: 核心代码: use Vcl.Themes;procedure TForm1.FormCreate(Sender: TObject);var i:integer; popItem:TMenuItem; begin//动态生成右键菜单与绑定事件 //TStyleManager样式管理器,不用声 阅读全文
摘要：
方法一:用API,此方法做出来的效果稍差,边缘会带有锯齿,强迫证患者谨用. procedure TForm1.FormCreate(Sender: TObject); var fhr: Thandle; begin fhr := CreateRoundRectRgn(0, 0, 195, 195, 阅读全文
摘要：
//cxSplitter禁用移动和拖拽，只允许点击箭头按钮触发缩放（展开和收起） procedure TFraModleBase.cxSplitter3CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); beg 阅读全文
摘要：
转载:https://www.cnblogs.com/bolang100/p/9804938.html 自1995年Borland公司发布Delphi 1.0以来，Delphi受到很多开发者的亲睐，到1999年发布Delphi5，Delphi以其开发快捷、控件丰富、易于上手等优势吸引了众多的开发者， 阅读全文
摘要：
19.2 以前的用007大佬的这句 cxgrdbtblvwGrid1DBTableView2.DataController.Filter.Clear; 以后的用 DataController.findcriteria.text:=''; 阅读全文
摘要：
TcxGrid默认在离开编辑状态时,会自动保存数据到数据库,但是如果只有一行数据的情况下,正常是退不出编辑状态的.比如下图,申领数量由50改到500后,数据行还是处理编辑状态,没有提交到数据. 解决方案一(推荐): DataControler --Options--dcoImmeditingData 阅读全文
摘要：
function TForm2.getvalue(str: string): string; var strTem, resultStr: string; len, i: Integer; Flag: Boolean; //判断是否已有小数点 begin len := Length(Trim(str 阅读全文
摘要：
对于不用返回结果集的要用execsql反之则用open;insert ,update,delete就要用到execsql;select就要用open 阅读全文
摘要：
常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Cl 阅读全文
摘要：
问题:dxBarManager1 里面添加了cxBarEditItem1 这是个文本框,运行可以输入内容,但是当焦点失去时,刚刚输入的内容没了.只能每次输完内容后一定要按回车才能保存内容.这里面所有能改变值的控件都是这样子的,有没有什么办法可以在控件去焦点时,自动保存刚刚的更改?我试过sendmes 阅读全文
摘要：
如下图所示,在TcxRadioGroup里选中数据后,再点其他地方,选项会自动跳回 [ 全部 ] 那一项. 我在百度上找了半天也没有资料. 后来发现是我在items里,把这三个项的type值改成了Boolean,其实只要保持默认的 Null即可. 2023-02-08 DEV的菜单控件TdxBarM 阅读全文
摘要：
在TcxGrid上设置右键菜单时,如果不加以控制,这个右键菜单,无论你在哪里点右键,它都是会弹出来的,如果刚好用户执行了菜单命令,有可能会执行不正确的代码.HitTest由此而来 HitTest是用来处理点击事件的，从字面上理解首先要能点击的到才能触发事件。 HitTest需要引用 cxGridDe 阅读全文
摘要：
组件明细: TdxSpreadSheet基本上还原了EXCEL的基本功能,用户可以像EXCEL一样正常操作这个控件,比如控件下ctrl+1也能调出单元格属性设置. 另外,就算用户电脑上没有安装EXCEL,程序依然能够正常运行. 简单编辑时用着还行,代码操作的太复杂的话就算了,不建议使用. dxSpr 阅读全文
摘要：
var defaultPath:string; //这里可以设置为全局变量begin if SaveDialog1.Execute then begin defaultPath := SaveDialog1.FileName; //文件路径+文件名,不确定是否包含后缀 if ExtractFileE 阅读全文
摘要：
一.设置字段内容的对齐方式 先设置字段内容的数据类型. 然后设置对齐方式即可 二.对符合特定条件的值,使用指定图标来表示 1.设置properties属性为 ImageComboBox 2.添加TcxImageList,设置图标尺寸.并加载需要的图标.这里有个小技巧.这个控件是没有24*24的图标的 阅读全文
摘要：
一.删除 cxGrid1DBTableView视图. TcxGrid 在创建时,会自动添加一个cxGrid1DBTableView1视图,我们需要删除它 二.创建卡片视图. 三.链接数据库. 效果就出来了,但这只是最初始的状态,需要进一步美化. 四.美化.选择其中一个卡版(局部设置) 1.字段位置可 阅读全文
摘要：
function IntToBin(AInt: Integer): string; begin Result := ''; for var lIndex := 1 to Sizeof(AInt) * 8 do Result := Result + (AInt shr (Sizeof(AInt) * 阅读全文
摘要：
1.位置:OnGetContentStyle事件,在事件列表的Style下. 2.OnGetContentStyle何时触发: 当获取内容数据的UI样式(style)时触发此事件. 注意,用户每次点击单元格时,都会触发此事件! 3.参数解释 procedure TForm1.cxGrid1DBTab 阅读全文
摘要：
onCustomDrawCell事件分为两种: 一个是整个表格的事件,需要判断单元格所在的字段,符合了之后,才能进行下一步 取得单元格所在字段的字段名:TcxGridColumn(AViewInfo.Item).DataBinding.FilterFieldName AViewInfo.Item 表 阅读全文