Color To String
2015-07-14 23:57
281 查看
Pascal Code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | unit PickColor; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons; type TForm5 = class(TForm) dlgColor1: TColorDialog; edt1: TEdit; btn1: TBitBtn; procedure FormCreate(Sender: TObject); procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form5: TForm5; implementation {$R *.dfm} procedure TForm5.btn1Click(Sender: TObject); begin if dlgColor1.Execute then edt1.Text := ColorToString(dlgColor1.Color); edt1.Color := dlgColor1.Color; end; procedure TForm5.FormCreate(Sender: TObject); begin Form5.Position := poScreenCenter; edt1.Clear; Form5.btn1.Click; end; end. |
相关文章推荐
- Resharp非常实用的快捷键
- C语言中的指针与字符串
- c语言中的指针与数组
- 使用IntrospectorCleanupListener 解决quartz引起的内存泄漏
- MouseListener与MouseAdapter的区别
- 2015071405 - 英雄
- [LeetCode] Trapping Rain Water
- Random
- POJ1337 Balance(完全背包~~)
- 将一个视图吸收的动效
- 2015071404 - 继续坚持
- Majority Element in an Array
- UNITY 5.1.1发行说明 中文版
- 判断命题的真假
- Uppercase and Lowercase
- 编译libxml2-2.9.0报错: undefined reference to `gzopen64' 解决办法
- Android 快速开发系列 打造万能的ListView GridView 适配器
- Effective Java:对于所有对象都通用的方法
- Effective Java:对于所有对象都通用的方法
- win7安装mysql