![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
dengqingyan
这个作者很懒,什么都没留下…
展开
-
Delphi 中如何初始化事件
在程序当中,我们写了大量的事件,有些时候从数据库读取出来以后需要进行初始化执行,才能够达到效果,下面以OnChange事件为例。 首先在窗体FormShow事件里面添加过程, procedure TBaseForm.FormShow(Sender: TObject); begin inherited; initComboxData; end; 然后在private里面...2010-05-18 13:21:21 · 545 阅读 · 0 评论 -
DatasetAfterOpen 假执行
今天我在做调试的时候,在DatasetAfterOpen 事件里面添加了一些执行代码,单步调试也进行了跟踪,发现都是正确的结果,但是前台显示的就是有异常。 后来经过分析发现,DataSet在获取到数据以后数据集记录指向了最后一行,所以导致DatasetAfterOpen 没有执行,这种情况下需要在得到数据后,写如下代码让记录集回到第一行,这样才会触发DatasetAfte...2010-05-20 13:26:52 · 254 阅读 · 0 评论 -
Delphi 批量修改组件的属性或事件方法
由于在界面的实现的时候对一些下拉框需要进行禁止输入的限制,但是之前在程序中没有限定,这样在界面中有上百个这样的组件,如果一个个改起来肯定麻烦,可以采用下面的方法进行实现 for i:=ComponentCount-1 downto 0 do begin if Components[i] is TDBComboBox then ...2010-05-20 13:32:39 · 711 阅读 · 0 评论 -
CheckListChange多选互斥事件的运用
在实际业务中,存在多选框,当选择‘无’的时候其他的框是不能选择的,当选择其他的时候‘无’的选项要自动清除,方法如下: procedure TForm.CheckListBoxChange(Sender: TObject; Index: Integer; NewState: TCheckBoxState); var i:Integer; begin inherited; ...2010-05-20 13:38:28 · 215 阅读 · 0 评论 -
Delphi 默认选中的tab页不符合使用习惯
在Delphi中,当使用到PageControl的时候会有tab也签默认的原因,当我们编译工程,发现并不是我们的第一个Tab,需要把属性 PageControl.TabIndex:=0;这样会把第一个页标签的内容进行展现。...2010-05-20 13:42:58 · 138 阅读 · 0 评论