文档章节

一行代码设置颜色的控件

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 146
阅读 15
收藏 0
点赞 0
评论 0
本例效果图:



提示: 新建工程后, 添加 TColorBox、TColorListBox、TColorGrid、TButtonColor 四个控件, 分别双击它们建立默认事件, 然后贴入下面代码:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ColorGrd, StdCtrls, TeCanvas, ExtCtrls;

type
  TForm1 = class(TForm)
    ColorBox1: TColorBox;
    ColorListBox1: TColorListBox;
    ColorGrid1: TColorGrid;
    ButtonColor1: TButtonColor;
    procedure ColorListBox1Click(Sender: TObject);
    procedure ColorBox1Change(Sender: TObject);
    procedure ColorGrid1Change(Sender: TObject);
    procedure ButtonColor1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ColorListBox1Click(Sender: TObject);
begin
  Self.Color := ColorListBox1.Selected;
end;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Self.Color := ColorBox1.Selected;
end;

procedure TForm1.ColorGrid1Change(Sender: TObject);
begin
  Self.Color := ColorGrid1.ForegroundColor;
end;

procedure TForm1.ButtonColor1Click(Sender: TObject);
begin
  Self.Color := ButtonColor1.SymbolColor;
end;

end.

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
关于UIView的Alpha和NSDate的两个使用方法

刚刚做一个PickerView的弹出效果. 遇到一个问题,PickerView放置在一个黑色透明的UIView上. viewOfPickerView.backgroundColor =[[UIColor blackColor] colorWithAlphaComponent:0.75]; 这种设......

炽梨 ⋅ 2016/03/21 ⋅ 0

在DataGridView底部实现统计行

代码:/Files/zhuqil/Desktop.rar 在开发一个基于Window Form的CS应用程序的时候,我搜索过一个这样的DataGridView 控件,它能显示一列内容的总和。例如:统计顾客订单的总数,显示在Grid中的...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

滑动性能优化

个人认为比opaque属性更重要的是backgroundColor属性,如果不设置这个属性,控件依然被认为是透明的,所以我们做的第一个优化是在CustomTableCell类的init方法中添加一行代码: 虽然在白色背...

Gong_xiao ⋅ 2016/02/14 ⋅ 0

如何使用 jQuery 和 CSS3 创建一个日历控件

这个教程将教你如何使用 jQuery 和 CSS3 来创建一个绚丽的日历控件。我们将使用 CSS 来做样式,使用 jQuery 和 jQuery UI 来做功能。我们将只使用 jQuery UI 中的 “Datepicker” 脚本,所以...

虫虫 ⋅ 2012/04/08 ⋅ 4

软件程序的超炫按钮的轻松打造----visual basic篇

软件开发者要想软件吸引客户的眼光,当然是打造软件的界面风格,如打造类似Windows XP、Java、Flat风格的按钮吗?只要在你的程序中加上BSE控件,简简单单的一行代码,就可以轻松实现多达16种...

crossmix ⋅ 2015/12/05 ⋅ 0

iOS-常用的自定义控件

前言 项目中比较可能会用到的自定义控件,也会去参考别人的第三方,解读他们解决问题的思路并加上自己的逻辑,记录下来方便以后阅读; (一)图文验证码; demo展示的是简单的图文验证(没有...

麦兜卖鱼丸 ⋅ 2016/10/18 ⋅ 0

iOS 9应用开发教程之使用开关滑块控件以及滚动部署视图

iOS 9应用开发教程之使用开关滑块控件以及滚动部署视图 使用ios9中的开关、滑块控件 开关和滑块也是用于和用户进行交互的控件。本节将主要讲解这两种控件。 ios9开关 开关控件常用来控制某个...

大学霸 ⋅ 2015/08/12 ⋅ 0

android ListView 九大重要属性详细分析

android ListView 九大重要属性详细分析 1.android ListView 一些重要属性详解,兄弟朋友可以参考一下。 首先是stackFromBottom属性,这只该属性之后你做好的列表就会显示你列表的最下面,值...

抉择很难 ⋅ 2015/12/24 ⋅ 0

Bootstrap学习笔记(二)

7.响应式表单 表单组样式:将和表单元素包含其中,可以获得更好的排列 表单元素样式:常用于、、元素 内联表单样式(用于form表单):可以使元素一行显示 在一侧加入附加内容 或 类应用到一系...

Mr_欢先生 ⋅ 2017/11/02 ⋅ 0

UINavigationBar 使用总结

UINavigationBar是我们在开发过程中经常要用到的一个控件,下面我会为大家介绍一些常用的用法。 1. 设置导航栏的标题 这个不多说,直接上代码 2. 设置导航栏的背景颜色 得到的效果如下: Sn...

刀客445 ⋅ 2016/08/03 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

mysql in action / alter table

change character set ALTER SCHEMA `employees` DEFAULT CHARACTER SET utf8mb4 DEFAULT COLLATE utf8mb4_general_ci ;ALTER TABLE `employees`.`t2` CHARACTER SET = utf8mb4 , COLLAT......

qwfys ⋅ 今天 ⋅ 0

Java 开发者不容错过的 12 种高效工具

Java 开发者常常都会想办法如何更快地编写 Java 代码,让编程变得更加轻松。目前,市面上涌现出越来越多的高效编程工具。所以,以下总结了一系列工具列表,其中包含了大多数开发人员已经使用...

jason_kiss ⋅ 昨天 ⋅ 0

Linux下php访问远程ms sqlserver

1、安装freetds(略,安装在/opt/local/freetds 下) 2、cd /path/to/php-5.6.36/ 进入PHP源码目录 3、cd ext/mssql进入MSSQL模块源码目录 4、/opt/php/bin/phpize生成编译配置文件 5、 . ./...

wangxuwei ⋅ 昨天 ⋅ 0

如何成为技术专家

文章来源于 -- 时间的朋友 拥有良好的心态。首先要有空杯心态,用欣赏的眼光发现并学习别人的长处,包括但不限于工具的使用,工作方法,解决问题以及规划未来的能力等。向别人学习的同时要注...

长安一梦 ⋅ 昨天 ⋅ 0

Linux vmstat命令实战详解

vmstat命令是最常见的Linux/Unix监控工具,可以展现给定时间间隔的服务器的状态值,包括服务器的CPU使用率,内存使用,虚拟内存交换情况,IO读写情况。这个命令是我查看Linux/Unix最喜爱的命令...

刘祖鹏 ⋅ 昨天 ⋅ 0

MySQL

查看表相关命令 - 查看表结构    desc 表名- 查看生成表的SQL    show create table 表名- 查看索引    show index from  表名 使用索引和不使用索引 由于索引是专门用于加...

stars永恒 ⋅ 昨天 ⋅ 0

easyui学习笔记

EasyUI常用控件禁用方法 combobox $("#id").combobox({ disabled: true }); ----- $("#id").combobox({ disabled: false}); validatebox $("#id").attr("readonly", true); ----- $("#id").r......

miaojiangmin ⋅ 昨天 ⋅ 0

金山WPS发布了Linux WPS Office

导读 近日,金山WPS发布了Linux WPS Office中文社区版新版本,支持大部分主流Linux系统,功能更加完善,兼容性、稳定性大幅度提升。本次更新WPS将首次在Linux提供专业办公文件云存储服务,实...

问题终结者 ⋅ 昨天 ⋅ 0

springboot2输出metrics到influxdb

序 本文主要研究一下如何将springboot2的metrics输出到influxdb maven <dependency> <groupId>org.springframework.boot</groupId> <artifactId>spring-bo......

go4it ⋅ 昨天 ⋅ 0

微信小程序 - 选择图片显示操作菜单

之前我分享过选择图片这个文章,但是我在实际开发测试使用中发现一个问题在使用 wx.chooseImage 选择照片显示出第一格是拍照,后面是相册里的图片。这种实现之前说过了,效果如下。 但是你从...

hello_hp ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部