Delphi学习笔记（一）

（一）鼠标点击显示和清除文本框内容

1.将文本框和按钮布局好后，在Object Inspector窗体中找到Text和Visible

2.Text的内容即文本框要显示的内容

3.Visible初始值设置为False，不可见

4.双击显示按钮，在代码中写入 Edit1.Visible:=true; 即点击后使文本框可见，‘:=’为赋值

 

5.双击清除按钮，在代码中写入 Edit1.Text:='  '; 点击后清除文本框内容

 

（二）鼠标悬停时显示内容

1.选中要悬停显示的控件，找到ShowHint和Hint

2.将ShowHint设置为True，显示可见

3.Hint中输入要显示的内容

 

（三）在文本框中输入整数，显示个十百千位

1.布局

2.每次单击文本框后，清空内容，等待输入

①　在Object Inspector窗体中选择Events，OnClick

②　输入代码： Edit1.Text:= '';（Delphi中’’表示空而C/C++中””表示空）

3.点击每一位，显示相应数字

①　将文本框中的字符串通过StrToInt()函数转换为整型

 temp:=StrToInt(Edit1.Text);

②　计算后通过IntToStr()函数转换为字符串显示出来

 Label1.Caption:=IntToStr(temp mod 10);

③　其他位的按钮点击类似

4.结果