有delphi程序运行期间进行窗体设计的控件吗?

有delphi程序运行期间进行窗体设计的控件吗?,第1张

你可以到盒子上下载FormDesgner,以关键字“运行期间设计窗口的组件”搜索一下,这是个窗体设计器套件,共包括6个控件,分别为Formdesigner(窗体设计器),DsControlPanel(控件面板体现器),DsnInspector(对象监测器),DsnManager(设计器管理器),DsnSelect(控件选择器), DsnControlContainer(非可见控件容器)。

我以前编写过类似功能的软件,其实Delphi的TCustomForm留有一个为IDE的可视化设计的用的接口Designer。Designer是IDesignerNotify, IDesignerHook 接口。

至于属性编辑器,你可以用rtti来实现,可以用 DevExpress 中控件来完成。

窗体设计器的网格是为了方便你设计窗口时调整控件的位置,程序运行时这些是没有的

不建议取消,取消方法:

打开菜单栏的(汉化版就是 工具, 环境选项,设计,网格操作,显示网格)

Tools 的 Environment Options

弹出对话框

点击Designer选项卡

将 Grid options 下的 Display grid 取消选中

1 C

2 C

3 B 例子:X-Y -A(负A)

4 A

5 B

6 A

7 D

8 A

9 B

10 C

11 A OnCreate事件是在窗口创建时运行

1.选中状态 DELETE

2.Pascal

3.and or

4.if case

5.default值设置为TRUE

6.INTEGER(整数型),STRING(字符型,按字母顺序排列),enumerated(枚举型),subrange(子界型)

1.procedure TForm1.Button1Click(Sender: TObject)

var

i1,i2,i3,imin:integer//i1是第一个数,i2是第二个数,i3是第三个数,imin是比较后的较小数

begin

i1:=strtoint(edit1.text) //edit1为输入第一个数的文本框

i2:=strtoint(edit2.text) //edit2为输入第二个数的文本框

i3:=strtoint(edit3.text) //edit3为输入第三个数的文本框

if i1>i2 then imin:=i2 //i1和i2相比,较小的值赋值给imin

else imin:=i1

if i3>imin then //imin和i3相比,较小的值赋值给imin

else imin:=i3

edit4.Text:=inttostr(imin)//把最小数的值在文本框edit4中输出

end

2.这个问题很尴尬,因为现在用的都是ADO控件连接数据库,BDE的连接方式因为连接方式烦琐,功能不如ADO控件强大而没落了,所以我不会...我不想蒙你.


欢迎分享,转载请注明来源:夏雨云

原文地址:https://www.xiayuyun.com/zonghe/53818.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-02-26
下一篇2023-02-26

发表评论

登录后才能评论

评论列表(0条)

    保存