Delphi
程序设计第三节
模仿制作 windows 计算器
首先:我们设置 FORM1 的窗口属性 大拉小了!用 性设置为 模仿的 windows 计算器 画一个 EDIT 组建 ( TEXT 里边显示为空! 好了,画好了,我们接着来画面板! 点一下 )并把他的 TEXT 属性里的字删除! ,
这样窗口就不可以随便拉 选中计算器的图标! 把 FORM1 的 caption 属 . 使
(panel)该组件只是为了好看没有多大的实际用途! 拉到适当的大小的时候 他的这个属性清空,
我们来设置他的属性!首先,我们把
是面板上不显示字!把
设置为
使面板下沉
我们再画 18 个
快速按钮,分别把 CAPTION 属性设置成如图
好了,到此,我们的界面就画完了! 我们先来讲讲本节用到的组件属性! Form1.caption (代表是 FORM1 的标题文本),我们可以在 属性页里设置也可以
用语句设置;Delphi 里所有的组件属性都可以用语句设置,以后我就不重复了! 例: form1.caption:='哈哈,测试一下!'; //这时候则 form1 的标题为哈哈,测试一下! 哈哈, 哈哈 测试一下! Edit1.text:='看看你聪明不!';//这时候 edit1 里边显示的文本为 看看你聪明不! 看看你聪明不!
版权所有,未经作者许可,请勿翻录 鉴于广大网友的要求,特意开了一个 QQ 群,请所有会员务必加进来,有问题大家可以在这里边问我,我 尽快解答; QQ 群 ID:718382 大家验证必须用黑基的用户名和密码,而且必须是
Delphi VIP 的!
Panel 面板组件,无实际用途,主要用于界面美观 ! Speedbutton 快速按钮! 主要属性: checked 设置是否被选中 flat 设置是否为 OFFICE 2000 风格 Down 设置是否按下 好了,接下来我们写代码!
重点难点解析: 重点难点解析: edit1.text:=edit1.text + '1'; 此句话的意思是代表在原来的字符串后面加个字符串 1 在执行上面的语句的话, 例: 假如说原来的 edit1.text 为 字符串 123456 在执行上面的语句的话,edit1.text 的值 则为 1234561 speedbutton12.caption = '关闭 关闭' 注意:等于号在 Delphi 中代表比较的意思,就是说此句 注意: 中代表比较的意思, 关闭 是不是相等的! 的意思是 比较 speedbutton12.caption 的值和 字符串 关闭 是不是相等的! case flag of 1:temp2:=strtofloat(edit1.text)+ strtofloat(temp1); 2:temp2:=strtofloat(temp1) - strtofloat(edit1.text); 3:temp2:=strtofloat(edit1.text)* strtofloat(temp1); 4:temp2:strtofloat(temp1) / strtofloat(edit1.text); end; edit1,text:=floattostr(temp2); strtofloat 把字符串转换为浮点数 floattostr 和上面的相反 case flag of 当 FLAG 的值和下面的符合时运行后面的表达式 …..
版权所有,未经作者许可,请勿翻录 鉴于广大网友的要求,特意开了一个 QQ 群,请所有
会员务必加进来,有
问题大家可以在这里边问我,我 尽快解答; QQ 群 ID:718382 大家验证必须用黑基的用户名和密码,而且必须是 Delphi VIP 的!