开发者社区> yudil96> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

每日程炼-delphi2010 键盘控件(TTouchKeyboard)

简介:
+关注继续查看

程序员职业之路已经完成了 ~今天开始每日一练,收集和向网络学习,提高自己。
delphi2010有一个新加的控件号称是 TTouchKeyboard, 触屏控件。

—————————————————————————————————————–

代码部分:
———————————————————————————————————————


  1. unit Unit1;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, Keyboard, StdCtrls, TeCanvas;  
  8.   
  9. type  
  10.   TForm1 = class(TForm)  
  11.    TouchKeyboard1: TTouchKeyboard;  
  12.     Edit1: TEdit;  
  13.     Memo1: TMemo;  
  14.     CheckBox1: TCheckBox;  
  15.     CheckBox2: TCheckBox;  
  16.     CheckBox3: TCheckBox;  
  17.     ButtonColor1: TButtonColor;  
  18.     ButtonColor2: TButtonColor;  
  19.   
  20.     procedure CheckBox1Click(Sender: TObject);  
  21.     procedure FormCreate(Sender: TObject);  
  22.     procedure ButtonColor1Click(Sender: TObject);  
  23.     procedure ButtonColor2Click(Sender: TObject);  
  24.     procedure CheckBox2Click(Sender: TObject);  
  25.     procedure CheckBox3Click(Sender: TObject);  
  26.   private  
  27.     { Private declarations }  
  28.   public  
  29.     { Public declarations }  
  30.   end;  
  31.   
  32. var  
  33.   Form1: TForm1;  
  34.   
  35. implementation  
  36.   
  37. {$R *.dfm}  
  38.   
  39. procedure TForm1.ButtonColor1Click(Sender: TObject);  
  40. begin  
  41.   TouchKeyboard1.GradientStart := TButtonColor(Sender).SymbolColor;  
  42. end;  
  43.   
  44. procedure TForm1.ButtonColor2Click(Sender: TObject);  
  45. begin  
  46.    TouchKeyboard1.GradientEnd := TButtonColor(Sender).SymbolColor;  
  47. end;  
  48.   
  49. procedure TForm1.CheckBox1Click(Sender: TObject);  
  50. begin  
  51.   case CheckBox1.Checked of  
  52.     True: TouchKeyboard1.DrawingStyle := TCustomTouchKeyboard.TDrawingStyle.dsGradient;  
  53.     False: TouchKeyboard1.DrawingStyle := TCustomTouchKeyboard.TDrawingStyle.dsNormal;  
  54.   end{注意 TDrawingStyle 类型是定义在 TCustomTouchKeyboard 内部的}  
  55.   
  56.   case CheckBox1.Checked of  
  57.     True: CheckBox1.Caption := 'DrawingStyle := dsGradient';  
  58.     False: CheckBox1.Caption := 'DrawingStyle := dsNormal';  
  59.   end;  
  60.   
  61. end;  
  62.   
  63.   
  64. procedure TForm1.CheckBox2Click(Sender: TObject);  
  65. begin  
  66.    case CheckBox2.Checked of  
  67.     True: begin  
  68.       TouchKeyboard1.Layout := 'NumPad';  
  69.       TouchKeyboard1.Width := 180;  
  70.       TouchKeyboard1.Height := 150;  
  71.       CheckBox2.Caption := 'Layout := NumPad';  
  72.     end;  
  73.     False: begin  
  74.       TouchKeyboard1.Layout := 'Standard';  
  75.       TouchKeyboard1.Width := 550;  
  76.       TouchKeyboard1.Height := 180;  
  77.       CheckBox2.Caption := 'Layout := Standard';  
  78.     end{注意: 这里的 Layout 属性是个字符串}  
  79.   end;  
  80.   
  81. end;  
  82.   
  83. procedure TForm1.CheckBox3Click(Sender: TObject);  
  84. begin  
  85.    case CheckBox3.Checked of  
  86.     True: begin  
  87.       TouchKeyboard1.CaptionOverrides.SetCaption('Esc''退出');  
  88.       TouchKeyboard1.CaptionOverrides.SetCaption('Backspace''退格');  
  89.       TouchKeyboard1.CaptionOverrides.SetCaption('Del''删除');  
  90.       TouchKeyboard1.CaptionOverrides.SetCaption('Enter''回车');  
  91.       {Esc Backspace Tab Del Caps Enter LeftShift RightShift LeftCtrl LeftAlt RightAlt RightCtrl}  
  92.     end;  
  93.     False: TouchKeyboard1.CaptionOverrides.Clear;  
  94.   end;  
  95.   TouchKeyboard1.Redraw; {重绘}  
  96.   
  97. end;  
  98.   
  99. procedure TForm1.FormCreate(Sender: TObject);  
  100. begin  
  101.   Memo1.Font.Color := clBlue;  
  102.   Memo1.Font.Size := 12;  
  103.   Memo1.ScrollBars := ssBoth;  
  104.   
  105.   Edit1.Font.Color := clRed;  
  106.   Edit1.Font.Size := 12;  
  107.   
  108.   CheckBox1.Caption := '背景色';  
  109.   CheckBox2.Caption := '大小键盘切换';  
  110.   CheckBox3.Caption := '功能键重命名';  
  111.   
  112. end;  
  113.   
  114. end.  

------------------------------------------------------------------------------------
窗体部分
-------------------------------------------------------------------------------------
  1. object Form1: TForm1  
  2.   Left = 0  
  3.   Top = 0  
  4.   Caption = #24858#20154#31508#35760'-www.foolcode.com'  
  5.   ClientHeight = 336  
  6.   ClientWidth = 564  
  7.   Color = clBtnFace  
  8.   Font.Charset = DEFAULT_CHARSET  
  9.   Font.Color = clWindowText  
  10.   Font.Height = -11  
  11.   Font.Name = 'Tahoma'  
  12.   Font.Style = []  
  13.   OldCreateOrder = False  
  14.   OnCreate = FormCreate  
  15.   PixelsPerInch = 96  
  16.   TextHeight = 13  
  17.   object TouchKeyboard1: TTouchKeyboard  
  18.     Left = 8  
  19.     Top = 148  
  20.     Width = 550  
  21.     Height = 180  
  22.     GradientEnd = clSilver  
  23.     GradientStart = clGray  
  24.     Layout = 'Standard'  
  25.   end  
  26.   object Memo1: TMemo  
  27.     Left = 8  
  28.     Top = 43  
  29.     Width = 297  
  30.     Height = 99  
  31.     ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861  
  32.     Lines.Strings = (  
  33.       'Memo1')  
  34.     TabOrder = 1  
  35.   end  
  36.   object Edit1: TEdit  
  37.     Left = 8  
  38.     Top = 8  
  39.     Width = 297  
  40.     Height = 21  
  41.     ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861  
  42.     TabOrder = 2  
  43.     Text = 'Edit1'  
  44.   end  
  45.   object ButtonColor1: TButtonColor  
  46.     Left = 327  
  47.     Top = 43  
  48.     Width = 102  
  49.     Caption = 'ButtonColor1'  
  50.     TabOrder = 3  
  51.     OnClick = ButtonColor1Click  
  52.   end  
  53.   object ButtonColor2: TButtonColor  
  54.     Left = 454  
  55.     Top = 41  
  56.     Width = 102  
  57.     Caption = 'ButtonColor2'  
  58.     TabOrder = 4  
  59.     OnClick = ButtonColor2Click  
  60.   end  
  61.   object CheckBox1: TCheckBox  
  62.     Left = 327  
  63.     Top = 10  
  64.     Width = 223  
  65.     Height = 17  
  66.     Caption = 'CheckBox1'  
  67.     TabOrder = 5  
  68.     OnClick = CheckBox1Click  
  69.   end  
  70.   object CheckBox2: TCheckBox  
  71.     Left = 327  
  72.     Top = 88  
  73.     Width = 194  
  74.     Height = 17  
  75.     Caption = 'CheckBox2'  
  76.     TabOrder = 6  
  77.     OnClick = CheckBox2Click  
  78.   end  
  79.   object CheckBox3: TCheckBox  
  80.     Left = 327  
  81.     Top = 111  
  82.     Width = 194  
  83.     Height = 17  
  84.     Caption = 'CheckBox3'  
  85.     TabOrder = 7  
  86.     OnClick = CheckBox3Click  
  87.   end  
  88. end  

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
WPF Dashboard仪表盘控件的实现
原文:WPF Dashboard仪表盘控件的实现 1、确定控件应该继承的基类 从表面上看,目前WPF自带常用控件中,没有一个是接近这个表盘控件的,但将该控件拆分就能够发现,该控件的每个子部分都是在WPF中存在的,因此我们需要将各个子控件组合才能形成这个表盘控件,因此我们直接定义一个Dashboard类,继承自Control类。
1422 0
邪恶改装:TPYBoard制作廉价WIFI干扰器
转载请注明:@小五义http://www.cnblogs.com/xiaowuyi   0X01 引言         想不想搞个WIFI干扰器?网上搜集了一下资料,发现用esp8266可以实现简单的干扰功能,包括断网、复制、欺骗等等。
1518 0
用 eric6 与 PyQt5 实现python的极速GUI编程(系列03)---- Drawing(绘图)(3)-- 画线
【概览】 本文实现如下的程序:(在窗体中绘画出各种不同风格的线条)   主要步骤如下: 1、在eric6中新建项目,新建窗体 2、(自动打开)进入PyQt5 Desinger,编辑图形界面,保存 3、回到eric 6,对上一步得到的界面文件 drawing.ui 文件右击,编译窗体,得到 Ui_drawing.py 文件 4、然后再对 drawing.ui 文件右击,生成对话框代码,得到 drawing.py 文件。
950 0
用 eric6 与 PyQt5 实现python的极速GUI编程(系列03)---- Drawing(绘图)(1)-- 绘写文字
【概览】 本文实现如下的程序:(在窗体中绘画出文字)   主要步骤如下: 1、在eric6中新建项目,新建窗体 2、(自动打开)进入PyQt5 Desinger,编辑图形界面,保存 3、回到eric 6,对上一步得到的界面文件 drawing.ui 文件右击,编译窗体,得到 Ui_drawing.py 文件 4、然后再对 drawing.ui 文件右击,生成对话框代码,得到 drawing.py 文件。
1097 0
EF中Database.SqlQuery
本文转载:http://www.cnblogs.com/daimage/archive/2012/07/04/2575844.html EF中Database.SqlQuery Method (String, Object[]) 可以直接执行SQL语句  但以为object[]参数和在ado.
784 0
+关注
1
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载