delphi7 – 印象派

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

2020-05-19 • Delphi • 评论关闭 • Aar0n •2,285 次查阅

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

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

2016-12-022016-12-02 • Delphi • 暂无评论 • Aar0n •3,425 次查阅

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

[代码]个人所得税过程

2016-11-302016-11-30 • Delphi • 暂无评论 • Aar0n •2,093 次查阅

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

[代码]百钱买百鸡过程

2016-11-222016-11-22 • Delphi • 暂无评论 • Aar0n •2,072 次查阅

百钱买百鸡过程。 procedure TForm1.Button1Click(Sender: TObject); var hen, cock, chick: integer; answer: string; begin for cock:=0 to 20 do for hen:=0 to 33 do begin chick:=100-hen-cock;//鸡雏的数目 if chick mod 3 = 0 then//鸡雏的数目必须是3的倍数 if cock*5+hen*3+chick div 3

[代码]生成九九表的过程

2016-11-182016-11-18 • Delphi • 暂无评论 • Aar0n •2,189 次查阅

九九乘法表的一个过程。 procedure nine(n:integer); var i, j: integer; line: string; begin for i:=1 to n do begin //生成第i行 line:=''; //第i行共有i句口诀 for j:=1 to i do begin line:=line+inttostr(j)+'×'+inttostr(i)+'='+inttostr(i*j)+' &#3

[代码] 回车移动焦点

2016-09-122016-09-12 • Delphi • 暂无评论 • Aar0n •2,140 次查阅

在当前焦点按下回车自动移动到下移控件。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then begin keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下 keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); /

[代码]设置窗体位于最前

2016-09-072016-09-12 • Delphi • 暂无评论 • Aar0n •2,135 次查阅

这个功能是利用了系统的API，让程序位于最前，在实际中还是有一定的作用的。 procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,0)//设置窗体至上 else SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width,Height,0)

登录