delphi TUnitreeMenu控件 delphi常用控件

转载

mob64ca13f87273 2024-02-19 21:05:44

文章标签 大数据青少年编程编辑框 Text 常用属性 文章分类 机器学习人工智能

1、Label组件常用属性

align: 决定标签在窗体的位置：上下中左右

Name：修改标签的名字，默认为Label1，Label2......

Caption ：标签上显示的提示文字

Autosize：布尔型，决定该标签内容是否随文本的长度变化而变化，默认为TRUE

Alignment：布尔型，决定文本对齐方式：左对齐，居中对齐，右对齐

LayOut：布尔型，决定文本在标签的位置：顶部、中部还是底部

WordWarp：布尔型，决定文本长度超出标签是否折行，默认为FALSE

Transparent：布尔型，决定标签背景是否透明，默认为FALSE

FocusControl：设置按下热键时候，获得焦点控件名,与ShowAccelChar组合使用

ShowAccelChar:布尔型，决定是否将“&”作为热键字符标记，默认为 False

Font: 修改字体的大小颜色格式等。

Label标签常用事件

OnMouseEnter:鼠标移动到标签上的事件。

OnClick: 鼠标单击事件。

OnMouseLeave:鼠标离开事件。

2、Edit组件常用属性

AutoSize: 决定编辑框是否随字体变化而自动变化尺寸，默认为TRUE

AutoSelect：决定编辑框获得焦点时，编辑框的文字是否被自动选中

Text：用于显示和保存编辑框中的字符串

Name：设置编辑框的名称，默认为：Edit1、Edit2......

PasswordChar:这个属性在一些编辑框组件如TMaskEdit、TDBEdit中都有.默认为：#0

可以自己设置一个掩码：‘ * ’。则用户输入的内容都是以‘*’呈现而隐藏真实的字符

MaxLength：决定编辑框最多可以输入多少个字符数，默认为0，表示可以输入任意字符数

ReadOnly：决定程序运行时，用户是否可以更改编辑框的内容。若为TRUE则不可更改

Font: 修改字体的大小颜色格式等。

Edit编辑框常用事件

OnChange：当编辑框内容发生改变时，触发该事件，是最常用也是最有用的事件之一

OnKeyPress：当按下一个键时，触发该事件。也可以限制编辑框输入字符的种类

OnEnter：当编辑框获得输入焦点（用户在操作的地方）时，触发该事件

3、delphi按钮类组件常用属性

Button组件

Name: 修改button按钮的名称
Caption ：用于在按钮上显示文本内容。
Cancel ：是否设置成默认的取消按钮，当设置为真的时候（true）按ESC触发改按钮的事件！
Default ：是否设置成默认的确认按钮，当设置为真的时候按ENTER键的时候触发事件。
Hint ：显示鼠标停留时显示的提示内容。
Showhint ：是否显示提示内容，默认为FALSE

Speedbutton组件
Groupindex ：设置分组。把几个组件设为同一个数学如1、2就表示为一组。

Down: 设置按键是否处于按下状态

Flat: 设置按钮具有office工具栏的风格，默认为FALSE

Allowallup ：设置同一组的快速按钮是否具有同时弹起的状态。

Radiobutton组件
Checked ：是否处于选中状态。

Item：写入有关按钮的文字

Column：按钮的列数

Alignment ：用于设置选择框和文字的排列方式

Checkbox组件
Allowgrayed 属性：用来设置当前组件被选种时，是否为变灰状态
State 属性：设置当前复选框的状态。

//OnChange事件触发是使得SpeedButton_login按钮可用，Enabled属性：决定button按钮可不可用
procedure TForm_Login.Edit_pwdChange(Sender: TObject);
begin
    //在编辑框中输入密码为123456时
    if Edit_pwd.Text = '123456' then
    begin
    //触发显现button按钮
    SpeedButton_login.Enabled := True;
    end;
end;
//OnMouseEnter事件：当鼠标放在Label_user标签上，文本字体发生改变大小为24
procedure TForm_Login.Label_userMouseEnter(Sender: TObject);
begin
    //设置鼠标放在标签上文本的字体
    Label_user.Font.Size := 24;
end;
//OnMouseLeave事件：鼠标移走时字体大小变成18
procedure TForm_Login.Label_userMouseLeave(Sender: TObject);
begin
    //设置鼠标离开标签上文本的字体
    Label_user.Font.Size := 18;
end;
//OnClick事件：鼠标点击清除编辑框中内容
procedure TForm_Login.Edit_pwdClick(Sender: TObject);
begin
    //清空编辑框内容
    Edit_pwd.Text := '';
end;

delphi TUnitreeMenu控件 delphi常用控件_Text