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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Delphi&Pascal » 【转帖】Delphi2010软键盘(TTouchKeyboard)用法示例
21/1返回列表
查看: 1568  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +4 西南交通专材355 2026-03-19 4/200 2026-03-20 11:39 by 花开富贵幸福人�
[考研] 一志愿吉林大学材料学硕321求调剂 +11 Ymlll 2026-03-18 14/700 2026-03-20 10:46 by EBSD
[考研] 329求调剂 +6 想上学吖吖 2026-03-19 6/300 2026-03-20 09:00 by 每天只摆一小会
[考研] 一志愿中国海洋大学，生物学，301分，求调剂 +5 1孙悟空 2026-03-17 6/300 2026-03-19 23:46 by zcl123
[考研] 288求调剂，一志愿华南理工大学071005 +5 ioodiiij 2026-03-17 5/250 2026-03-19 18:22 by zcl123
[考研] 复试调剂 +4 z1z2z3879 2026-03-14 6/300 2026-03-19 17:18 by fei626-918
[考研] 一志愿北京化工大学0703化学318分，有科研经历，求调剂 +3 一瓶苯甲酸 2026-03-14 3/150 2026-03-19 15:17 by 尽舜尧1
[考研] 一志愿天津大学化学工艺专业（081702）315分求调剂 +11 yangfz 2026-03-17 11/550 2026-03-19 15:06 by houyaoxu
[教师之家] 焦虑 +9 水冰月月野兔 2026-03-13 13/650 2026-03-19 09:50 by otani
[考研] 材料工程专硕调剂 +5 204818@lcx 2026-03-17 6/300 2026-03-18 22:55 by 204818@lcx
[考研] 328求调剂，英语六级551，有科研经历 +3 生物工程调剂 2026-03-17 7/350 2026-03-18 20:41 by Wangjingyue
[考研] 070300化学319求调剂 +6 锦鲤0909 2026-03-17 6/300 2026-03-18 13:22 by Iveryant
[考研] 302求调剂 +10 呼呼呼。。。。 2026-03-17 10/500 2026-03-18 12:45 by Linda Hu
[考研] 334求调剂 +3 志存高远意在机� 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[考研] 290求调剂 +3 p asserby. 2026-03-15 4/200 2026-03-17 16:35 by wangkm
[考研] 278求调剂 +3 Yy7400 2026-03-13 3/150 2026-03-17 08:24 by laoshidan
[考研] 283求调剂 +3 听风就是雨； 2026-03-16 3/150 2026-03-17 07:41 by 热情沙漠
[考研] [导师推荐]西南科技大学国防/材料导师推荐 +3 尖角小荷 2026-03-16 6/300 2026-03-16 23:21 by 尖角小荷
[考研] 318求调剂 +3 Yanyali 2026-03-15 3/150 2026-03-16 16:41 by houyaoxu
[考研] 一志愿哈工大材料324分求调剂 +5 闫旭东 2026-03-14 5/250 2026-03-14 14:53 by 木瓜膏
信息提示
关闭
请填处理意见
关闭