本例效果動(dòng)畫圖(因不是觸摸屏, 只能用鼠標(biāo)測(cè)試一下):

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Keyboard, TeCanvas;typeTForm1 = class(TForm)TouchKeyboard1: TTouchKeyboard;Edit1: TEdit;Memo1: TMemo;CheckBox1: TCheckBox;CheckBox2: TCheckBox;CheckBox3: TCheckBox;ButtonColor1: TButtonColor;ButtonColor2: TButtonColor;procedure FormCreate(Sender: TObject);procedure CheckBox1Click(Sender: TObject);procedure CheckBox2Click(Sender: TObject);procedure CheckBox3Click(Sender: TObject);procedure ButtonColor1Click(Sender: TObject);procedure ButtonColor2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}//是否要背景 procedure TForm1.CheckBox1Click(Sender: TObject); begincase CheckBox1.Checked ofTrue: TouchKeyboard1.DrawingStyle := TCustomTouchKeyboard.TDrawingStyle.dsGradient;False: TouchKeyboard1.DrawingStyle := TCustomTouchKeyboard.TDrawingStyle.dsNormal;end; {注意 TDrawingStyle 類型是定義在 TCustomTouchKeyboard 內(nèi)部的}case CheckBox1.Checked ofTrue: CheckBox1.Caption := 'DrawingStyle := dsGradient';False: CheckBox1.Caption := 'DrawingStyle := dsNormal';end; end;//背景過(guò)渡色 - 起始色 procedure TForm1.ButtonColor1Click(Sender: TObject); beginTouchKeyboard1.GradientStart := TButtonColor(Sender).SymbolColor; end;//背景過(guò)渡色 - 終止色 procedure TForm1.ButtonColor2Click(Sender: TObject); beginTouchKeyboard1.GradientEnd := TButtonColor(Sender).SymbolColor; end;//大小鍵盤切換 procedure TForm1.CheckBox2Click(Sender: TObject); begincase CheckBox2.Checked ofTrue: beginTouchKeyboard1.Layout := 'NumPad';TouchKeyboard1.Width := 180;TouchKeyboard1.Height := 150;CheckBox2.Caption := 'Layout := NumPad';end;False: beginTouchKeyboard1.Layout := 'Standard';TouchKeyboard1.Width := 550;TouchKeyboard1.Height := 180;CheckBox2.Caption := 'Layout := Standard';end; {注意: 這里的 Layout 屬性是個(gè)字符串}end; end;//更換鍵名顯示, 這在設(shè)計(jì)時(shí)通過(guò) KeyCaptions 屬性調(diào)整更方便 procedure TForm1.CheckBox3Click(Sender: TObject); begincase CheckBox3.Checked ofTrue: beginTouchKeyboard1.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); beginMemo1.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: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 336ClientWidth = 566Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object TouchKeyboard1: TTouchKeyboardLeft = 8Top = 148Width = 550Height = 180GradientEnd = clSilverGradientStart = clGrayLayout = 'Standard'endobject Memo1: TMemoLeft = 8Top = 43Width = 297Height = 99Lines.Strings = ('Memo1')TabOrder = 1endobject Edit1: TEditLeft = 8Top = 8Width = 297Height = 21TabOrder = 2Text = 'Edit1'endobject ButtonColor1: TButtonColorLeft = 327Top = 43Width = 102Caption = 'ButtonColor1'TabOrder = 3OnClick = ButtonColor1Clickendobject ButtonColor2: TButtonColorLeft = 448Top = 43Width = 102Caption = 'ButtonColor2'TabOrder = 4OnClick = ButtonColor2Clickendobject CheckBox1: TCheckBoxLeft = 327Top = 10Width = 223Height = 17Caption = 'CheckBox1'TabOrder = 5OnClick = CheckBox1Clickendobject CheckBox2: TCheckBoxLeft = 327Top = 88Width = 194Height = 17Caption = 'CheckBox2'TabOrder = 6OnClick = CheckBox2Clickendobject CheckBox3: TCheckBoxLeft = 327Top = 111Width = 194Height = 17Caption = 'CheckBox3'TabOrder = 7OnClick = CheckBox3Clickend end

轉(zhuǎn)載于:https://www.cnblogs.com/del/archive/2009/10/15/1583781.html

總結(jié)

以上是生活随笔為你收集整理的Delphi 2010 新增功能之: 软键盘、触摸键盘(TTouchKeyboard)的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。