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