标签： Delphi10

[Delphi]删除控件时出现＂Selection contains a component introduced in an ancestor form which cannot be deleted.＂错误的解决方法

• Delphi • 评论关闭 • •3,176 次查阅

今天在修改程序的时候突然发现删除继承的窗体中的控件属性时出现错误：Selection contains a component introduced in an ancestor form which cannot be deleted. 办法如下:在要删除提示控件的属性右键，选择：Revert to Inherited  或者 去继承组件的父类去操作。

[控件]FastReport调用Delphi中的自定义函数

• Delphi • 评论关闭 • •2,676 次查阅

有些东西始终都是需要互相访问的，报表使用程序的函数也是家常了。 1.载入调用函数名。 procedure TFKy_Fayun.FormCreate(Sender: TObject); begin frxReport1.AddFunction('function HeBin(s1:Double;s2:Double;s3:Double): string;','HeBin','合并函数'); end; 2.在报表的UserFunction事件添加如下代

[控件]DevExpress删除TreeList已选择的节点

• Delphi • 暂无评论 • •3,640 次查阅

来源于研究分享，有能起到帮助的就默默的感谢下他吧哈！ // 删除TreeList已选择的节点 procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList); overload; procedure TreeListDeleteChecked(ANode: TcxTreeListNode); overload; procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList);

[代码]个人所得税过程

• Delphi • 暂无评论 • •2,286 次查阅

个人所得税过程 procedure TForm1.Button1Click(Sender: TObject); //定义三个单精度浮点数，分别表示应纳税总额，区间应纳税总额，累加纳税额 var sum, para, tax: single; begin //取得应纳税总额，并将累计纳税额变量置0 sum:=strtofloat(Edit1.Text); //这个函数进行从字符串到浮点型的转化 sum:=sum-800; tax:=0; //如果满足条件才执行相应代码 if sum>2000

加载更多