delphi记事本开发分析和总结.docx

版权所有，未经作者许可，请勿翻录鉴于广大网友的要求，特意开了一个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的值和下面的符合时运行后面的表达式

…..