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

  • A+
所属分类:[开发技巧]

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

-------------------------------------------------------------------------------------------------------------------- 代码部分: --------------------------------------------------------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Keyboard, StdCtrls, TeCanvas; type TForm1 = class(TForm) TouchKeyboard1: TTouchKeyboard; Edit1: TEdit; Memo1: TMemo; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; ButtonColor1: TButtonColor; ButtonColor2: TButtonColor; procedure CheckBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure ButtonColor1Click(Sender: TObject); procedure ButtonColor2Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); procedure CheckBox3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ButtonColor1Click(Sender: TObject); begin TouchKeyboard1.GradientStart := TButtonColor(Sender).SymbolColor; end; procedure TForm1.ButtonColor2Click(Sender: TObject); begin TouchKeyboard1.GradientEnd := TButtonColor(Sender).SymbolColor; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin case CheckBox1.Checked of True: TouchKeyboard1.DrawingStyle := TCustomTouchKeyboard.TDrawingStyle.dsGradient; False: TouchKeyboard1.DrawingStyle := TCustomTouchKeyboard.TDrawingStyle.dsNormal; end; {注意 TDrawingStyle 类型是定义在 TCustomTouchKeyboard 内部的} case CheckBox1.Checked of True: CheckBox1.Caption := 'DrawingStyle := dsGradient'; False: CheckBox1.Caption := 'DrawingStyle := dsNormal'; end; end; procedure TForm1.CheckBox2Click(Sender: TObject); begin case CheckBox2.Checked of True: begin TouchKeyboard1.Layout := 'NumPad'; TouchKeyboard1.Width := 180; TouchKeyboard1.Height := 150; CheckBox2.Caption := 'Layout := NumPad'; end; False: begin TouchKeyboard1.Layout := 'Standard'; TouchKeyboard1.Width := 550; TouchKeyboard1.Height := 180; CheckBox2.Caption := 'Layout := Standard'; end; {注意: 这里的 Layout 属性是个字符串} end; end; procedure TForm1.CheckBox3Click(Sender: TObject); begin case CheckBox3.Checked of True: begin TouchKeyboard1.CaptionOverrides.SetCaption('Esc', '退出'); TouchKeyboard1.CaptionOverrides.SetCaption('Backspace', '退格'); TouchKeyboard1.CaptionOverrides.SetCaption('Del', '删除'); TouchKeyboard1.CaptionOverrides.SetCaption('Enter', '回车'); {Esc Backspace Tab Del Caps Enter LeftShift RightShift LeftCtrl LeftAlt RightAlt RightCtrl} end; False: TouchKeyboard1.CaptionOverrides.Clear; end; TouchKeyboard1.Redraw; {重绘} end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Font.Color := clBlue; Memo1.Font.Size := 12; Memo1.ScrollBars := ssBoth; Edit1.Font.Color := clRed; Edit1.Font.Size := 12; CheckBox1.Caption := '背景色'; CheckBox2.Caption := '大小键盘切换'; CheckBox3.Caption := '功能键重命名'; end; end. ------------------------------------------------------------------------------------- 窗体部分 ------------------------------------------------------------------------------------- object Form1: TForm1 Left = 0 Top = 0 Caption = #24858#20154#31508#35760'-www.yrnote.com' ClientHeight = 336 ClientWidth = 564 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object TouchKeyboard1: TTouchKeyboard Left = 8 Top = 148 Width = 550 Height = 180 GradientEnd = clSilver GradientStart = clGray Layout = 'Standard' end object Memo1: TMemo Left = 8 Top = 43 Width = 297 Height = 99 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 Lines.Strings = ( 'Memo1') TabOrder = 1 end object Edit1: TEdit Left = 8 Top = 8 Width = 297 Height = 21 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 TabOrder = 2 Text = 'Edit1' end object ButtonColor1: TButtonColor Left = 327 Top = 43 Width = 102 Caption = 'ButtonColor1' TabOrder = 3 OnClick = ButtonColor1Click end object ButtonColor2: TButtonColor Left = 454 Top = 41 Width = 102 Caption = 'ButtonColor2' TabOrder = 4 OnClick = ButtonColor2Click end object CheckBox1: TCheckBox Left = 327 Top = 10 Width = 223 Height = 17 Caption = 'CheckBox1' TabOrder = 5 OnClick = CheckBox1Click end object CheckBox2: TCheckBox Left = 327 Top = 88 Width = 194 Height = 17 Caption = 'CheckBox2' TabOrder = 6 OnClick = CheckBox2Click end object CheckBox3: TCheckBox Left = 327 Top = 111 Width = 194 Height = 17 Caption = 'CheckBox3' TabOrder = 7 OnClick = CheckBox3Click end end -----------------------------------------------------------------

点次下载DEMO

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: