百度360必应搜狗淘宝本站头条
虚拟机是什么网卡地址单元测试概念光标dos 命令大全
当前位置：网站首页 > 技术文章 > 正文

「3.Delphi常用组件」3.按钮类组件

haoteby 2025-06-24 13:33 34 浏览

3.按钮类组件

3.1 Button

基本按钮组件Button是最常用的组件之一，其主要属性：

属性

说明

Caption

按钮显示的文本

Cancel

按钮是否为取消按钮，设置为True，与按ESC键等价

Default

按钮是否为默认按钮，设置为True，与按Enter键等价

ModalResult

用来决定模式窗体如何关闭，取值： mrNone、mrOK、mrCancel、mrAbort、mrRetry、mrIgnore、mrYes、mrNo、mrAll、mrNoToAll、mrYestToAll。当Button被置于模式窗体上时该属性才有意义。 若属性值不是mrNone，Button被单击后，所在的模式窗体会自动关闭，并且该属性值会作为ShowModal函数的结果返回，所以不需要再为其OnClick事件编写代码。

其主要事件：

事件

说明

OnClick

鼠标单击事件，当单击鼠标按钮或者当按钮获得焦点时，按下Enter键或空格键会被触发

OnMouseDown

鼠标键按下事件

OnMouseMove

鼠标移过事件

OnMouseUp

鼠标键释放事件

3.2 BitBtn

位图按钮BitBtn组件与Button组件相似，但可以显示一个彩色的位图。其主要属性：

属性

说明

Glyph

指定一个.bmp文件显示在按钮的表面

Kind

决定按钮的种类，取值： bkCustom、bkOk、bkCancel、bkHelp、bkYes、bkNo、bkClose、bkAbort、bkIgnore、bkAll。 默认值为bkCustom，表示自定义类型，由Glyph指定位图，其他取值都有自己的位图并将其ModalResult属性自动设置为对应的值。

Layout

用来控制BitBtn的位图与文本的相对位置。取值： blGlyphLeft - 位图在文本左侧 blGlyphRight - 位图在文本右侧 blGlyphTop - 位图在文本的上方 blGlyphBottom - 位图在文本的下方

Margin

用来控制位图与按钮边界之间的像素，默认值为-1，表示位图位于按钮的正中。

Spacing

用来控制位图与文本之间的距离像素，为-1时，文本、位图与边界成等距离；取值为非负整数时，表示位图与文本之间的距离

示例：设计一个各种Kind的BitBtn界面，如下图：

Kind属性值为bkClose时，不需要编写按钮事件，按钮自动具备关闭窗体的功能。

3.3 SpeedButton

快速按钮SpeedButton可以成组工作，也可以显示位图，还可以具有单选按钮的功能，单独使用还可以具有复选框的功能。其主要属性如下：

属性

说明

AllowAllUp

控制是否允许单击处于按下状态

Down

设置按钮是否处于按下状态

Flat

当该属性为True时，按钮具有Office2010工具栏的风格

GroupIndex

该属性默认值为0，表示不与其他SpeedButton成组； 取值大于0时，则相同GroupIndex值的SpeedButton将成组工作，类似单选按钮； 取值大于0，同时不与其他SpeedButton的GroupIndex属性值相同，同时AllowAllUp属性设置为True，则SpeedButton类似于复选框工作。

示例：使用SpeedButton控制文本的字体及风格

界面设计如下图所示：

组件及其属性：

对象

属性

属性值

说明

From1

Caption

SpeedButton示例

窗体标题

SpeedButton1

Caption

宋体

按钮标题


Down

1

按下状态


GroupIndex

1

组1

SpeedButton2

Caption

黑体

按钮标题


GroupIndex

1

组1

SpeedButton3

Caption

楷体

按钮标题


GroupIndex

1

组1

SpeedButton4

Caption

隶书

按钮标题


GroupIndex

1

组1

SpeedButton5

Caption

仿宋

按钮标题


GroupIndex

1

组1

SpeedButton6

Caption

B

按钮标题


AllowAllUp

True

允许按键松开


Font.Style.isBold

True

粗体


GroupIndex

2

组2

SpeedButton7

Caption

I

按钮标题


AllowAllUp

True

允许按键松开


Font.Style.isItalic

True

斜体


GroupIndex

3

组3

SpeedButton8

Caption

U

按钮标题


AllowAllUp

True

允许按钮松开


Font.Style.IsUnderline

True

下划线


GroupIndex

4

组4

Label1

Caption

您好，Delphi欢迎您！

标题

代码如下：

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Label1.Font.Name := '宋体';
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Label1.Font.Name := '黑体';
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  Label1.Font.Name := '楷体_GB2312';
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  Label1.Font.Name := '隶书';
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  Label1.Font.Name := '仿宋';
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
  if SpeedButton6.Down then
    Label1.Font.Style := Label1.Font.Style + [fsBold]
  else
    Label1.Font.Style := Label1.Font.Style - [fsBold];
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
  if SpeedButton7.Down then
    Label1.Font.Style := Label1.Font.Style + [fsItalic]
  else
    Label1.Font.Style := Label1.Font.Style - [fsItalic];
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
  if SpeedButton8.Down then
    Label1.Font.Style := Label1.Font.Style + [fsUnderline]
  else
    Label1.Font.Style := Label1.Font.Style - [fsUnderline];
end;



相关推荐

一日一技:用Python程序将十进制转换为二进制

用Python程序将十进制转换为二进制通过将数字连续除以2并以相反顺序打印其余部分，将十进制数转换为二进制。在下面的程序中，我们将学习使用递归函数将十进制数转换为二进制数，代码如下：...

十进制转化成二进制你会吗?#数学思维

六年级奥赛起跑线：抽屉原理揭秘。同学们好，我是你们的奥耀老师。今天一起来学习奥赛起跑线第三讲二进制计数法。例一：把十进制五十三化成二进制数是多少？首先十进制就是满十进一，二进制就是满二进一。二进制每个...

二进制、十进制、八进制和十六进制，它们之间是如何转换的?

在学习进制时总会遇到多种进制转换的时候，学会它们之间的转换方法也是必须的，这里分享一下几种进制之间转换的方法，也分享两个好用的转换工具，使用它们能够大幅度的提升你的办公和学习效率，感兴趣的小伙伴记得点...

c语言-2进制转10进制_c语言 二进制转十进制

#include<stdio.h>intmain(){charch;inta=0;...

二进制、八进制、十进制和十六进制数制转换

一、数制1、什么是数制数制是计数进位的简称。也就是由低位向高位进位计数的方法。2、常用数制计算机中常用的数制有二进制、八进制、十进制和十六进制。...

二进制、十进制、八进制、十六进制间的相互转换函数

二进制、十进制、八进制、十六进制间的相互转换函数1、输入任意一个十进制的整数，将其分别转换为二进制、八进制、十六进制。2、程序代码如下：#include<iostream>usingna...

二进制、八进制、十进制和十六进制等常用数制及其相互转换

从大学开始系统的接触计算机专业，到现在已经过去十几年了，今天整理一下基础的进制转换，希望给还在上高中的表妹一个入门的引导，早日熟悉这个行业。一、二进制、八进制、十进制和十六进制是如何定义的？二进制是B...

二进制如何转换成十进制?_二进制如何转换成十进制例子图解

随着社会的发展，电器维修由继电器时代逐渐被PLC，变频器，触摸屏等工控时代所替代，特别是plc编程，其数据逻辑往往涉及到数制二进制，那么二进制到底是什么呢？它和十进制又有什么区别和联系呢？下面和朋友们...

二进制与十进制的相互转换_二进制和十进制之间转换

很多同学在刚开始接触计算机语言的时候，都会了解计算机的世界里面大多都是二进制来表达现实世界的任何事物的。当然现实世界的事务有很多很多，就拿最简单的数字，我们经常看到的数字大多都是十进制的形式，例如：我...

十进制如何转换为二进制，二进制如何转换为十进制

用十进制除以2，除的断的，商用0表示；除不断的，商用1表示余0时结束假如十进制用X表示，用十进制除以2，即x/2除以2后为整数的（除的断的），商用0表示；除以2除不断的，商用1表示除完后的商0或1...

十进制数如何转换为二进制数_十进制数如何转换为二进制数举例说明

我们经常听到十进制数和二进制数，电脑中也经常使用二进制数来进行计算，但是很多人却不清楚十进制数和二进制数是怎样进行转换的，下面就来看看，十进制数转换为二进制数的方法。正整数转二进制...

二进制转化为十进制，你会做吗?一起来试试吧

今天孩子问把二进制表示的110101改写成十进制数怎么做呀？，“二进制”简单来说就是“满二进一”，只用0和1共两个数字表示，同理我们平常接触到的“十进制”是“满十进一”，只用0-9共十个数字表示。如果...

Mac终于能正常打游戏了!苹果正逐渐淘汰Rosetta转译

Mac玩家苦转译久矣！WWDC2025苹果正式宣判Rosetta死刑，原生游戏时代终于杀到。Metal4光追和AI插帧技术直接掀桌，连Steam都连夜扛着ARM架构投诚了。看到《赛博朋克2077》...

怎么把视频的声音提出来转为音频?音频提取，11款工具实测搞定

想把视频里的声音单独保存为音频文件（MP3/AAC/WAV/FLAC）用于配音、播客、听课或二次剪辑？本文挑出10款常用工具，给出实测可复现的操作步骤、优缺点和场景推荐。1）转换猫mp3转换器（操作门...

6个mp4格式转换器测评:转换速度与质量并存!

MP4视频格式具有兼容性强、视频画质高清、文件体积较小、支持多种编码等特点，适用于网络媒体传播。如果大家想要将非MP4格式的视频转换成MP4的视频格式的话，可以使用MP4格式转换器更换格式。本文分别从...

一周热门