应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Delphi&Pascal » 【转帖】Delphi2010软键盘(TTouchKeyboard)用法示例
21/1返回列表
查看: 1570  |  回复: 1
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zyj8119

木虫 (著名写手)

[交流] 【转帖】Delphi2010软键盘(TTouchKeyboard)用法示例 已有1人参与

代码文件:
CODE:
unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls,　Keyboard,　TeCanvas;　
　
type　
　TForm1　=　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;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　
　
//是否要背景　
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.ButtonColor1Click(Sender:　TObject);　
begin　
　TouchKeyboard1.GradientStart　:=　TButtonColor(Sender).SymbolColor;　
end;　
　
//背景过渡色　-　终止色　
procedure　TForm1.ButtonColor2Click(Sender:　TObject);　
begin　
　TouchKeyboard1.GradientEnd　:=　TButtonColor(Sender).SymbolColor;　
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;　
　
//更换键名显示,　这在设计时通过　KeyCaptions　属性调整更方便　
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　=　'Form1'　
　ClientHeight　=　336　
　ClientWidth　=　566　
　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　
　　Lines.Strings　=　(　
　　　'Memo1')　
　　TabOrder　=　1　
　end　
　object　Edit1:　TEdit　
　　Left　=　8　
　　Top　=　8　
　　Width　=　297　
　　Height　=　21　
　　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　=　448　
　　Top　=　43　
　　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
回复此楼

» 猜你喜欢
好好学习，天天向上。
1楼 2010-12-02 15:37:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wd0001

新虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
好高端大气上档次的样子
赞一下 回复此楼
2楼2014-02-21 22:07:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zyj8119 的主题更新
21/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 086003调剂求助 +15 苏弋万 2026-04-09 16/800 2026-04-09 16:19 by zhuimr
[考研] 一志愿电子科技大学085600材料与化工 329分求调剂 +13 Naiko 2026-04-04 13/650 2026-04-09 16:04 by may_新宇
[考研] 调剂 +3 青灯不负 2026-04-09 3/150 2026-04-09 15:28 by 释放天性
[考研] 0703调剂 +17 拾玖壹 2026-04-04 19/950 2026-04-09 09:18 by may_新宇
[考研] 调剂 +22 不逢春 2026-04-07 23/1150 2026-04-09 08:01 by Sammy2
[考研] 302分求调剂 +4 凡语祈愿 2026-04-08 5/250 2026-04-08 22:03 by 土木硕士招生
[考研] 生物学学硕，初试351分，求调剂 +4 …～、王…～ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[考研] 318求调剂 +13 ykyhsa 2026-04-05 15/750 2026-04-08 21:37 by wj165256
[考研] 285求调剂 +12 AZMK 2026-04-05 18/900 2026-04-08 20:43 by 逆水乘风
[考研] 材料求调剂 +18 一样YWY 2026-04-05 18/900 2026-04-07 15:49 by dxlg
[考研] 复试调剂 +9 春日来信- 2026-04-03 9/450 2026-04-07 15:17 by 尽舜尧1
[考研] 285求调剂 +15 哦呦呼o 2026-04-04 17/850 2026-04-06 23:02 by chenzhimin
[考研] 26自然地理学303分求调剂 +4 一战成硕啊啊啊� 2026-04-06 9/450 2026-04-06 20:35 by lin-da
[考研] 一志愿南航，数一英一学硕317求调剂！！ +6 Acaciad 2026-04-04 6/300 2026-04-06 12:13 by 考研学校招点人
[考研] 一志愿武汉理工大学080200机械工程308分，求调剂 +4 终不似从前 2026-04-05 4/200 2026-04-06 11:46 by 考研学校招点人
[考研] 一志愿上海海洋大学083200食品学硕，求调剂，接受其他专业083200 +4 what张 2026-04-04 5/250 2026-04-05 14:07 by chw1980_0
[考研] 考研调剂 +5 四川王涛 2026-04-04 5/250 2026-04-04 22:18 by 啵啵啵0119
[考研] 求调剂 +3 ffyyu 2026-04-02 3/150 2026-04-04 19:03 by 蓝云思雨
[考研] 306求调剂 +3 hyb上名工 2026-04-02 3/150 2026-04-04 18:12 by 热情沙漠
[考研] 考研调剂 +3 Draa 2026-04-03 3/150 2026-04-03 17:37 by hgwz7468
信息提示
关闭
请填处理意见
关闭