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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Delphi&Pascal » 【转帖】Delphi2010软键盘(TTouchKeyboard)用法示例
21/1返回列表
查看: 1571  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 考研调剂 +12 硕星赴 2026-04-09 12/600 2026-04-09 21:24 by 学员jIFgUM
[考研] 308求调剂 +17 倘若起风了呢 2026-04-05 17/850 2026-04-09 21:22 by wutongshun
[考研] 289 分105500药学专硕求调剂(找B区学校) +5 白云123456789 2026-04-09 7/350 2026-04-09 21:03 by 白云123456789
[考研] 287求调剂 +12 Fnhc 2026-04-07 18/900 2026-04-09 19:46 by vgtyfty
[考研] 348求调剂 +3 candyyyi 2026-04-09 3/150 2026-04-09 17:20 by 段伟艳
[考研] 311求调剂 +6 surte 2026-04-08 13/650 2026-04-09 14:00 by surte
[考研] 本科南方医科大学 一志愿985 药学学硕284分 求调剂 +3 弱水听文 2026-04-09 3/150 2026-04-09 09:06 by susuqq
[考研] 软件工程求调剂22软工296分求调剂，接受跨调 +4 yangchen2017 2026-04-08 5/250 2026-04-08 21:56 by 土木硕士招生
[考研] 生物学308分求调剂（一志愿华东师大）做过分子实验 +6 相信必会光芒万� 2026-04-07 7/350 2026-04-08 16:49 by tjzhao
[考研] 求调剂，现在还能填的 +3 上岸小莹加油 2026-04-08 3/150 2026-04-08 14:30 by zhq0425
[考研] 生物调剂 +5 橙子橙子橙子啊 2026-04-05 9/450 2026-04-07 15:31 by 上岸快快
[考研] 295求调剂 +18 xndjjj 2026-04-04 19/950 2026-04-07 11:02 by wangjy2002
[考研] 085100建筑学 寻求跨专业调剂 一志愿南大294分 校级省级国家级奖项若干 踏实肯干 +3 1021075758 2026-04-06 4/200 2026-04-07 09:23 by 蓝云思雨
[考研] 304求调剂 +4 luoye0105 2026-04-05 4/200 2026-04-06 21:05 by 木子君1218
[考研] 297分083200求助 +9 aekx 2026-04-05 9/450 2026-04-06 20:57 by flysky1234
[考研] 285求调剂 +8 AZMK 2026-04-04 11/550 2026-04-06 13:56 by BruceLiu320
[考研] 工科277分求调剂材料 +8 上了上了上哦 2026-04-05 9/450 2026-04-05 13:05 by wwytracy
[考研] 341求调剂 +3 学无止境，冲 2026-04-05 3/150 2026-04-05 09:40 by lbsjt
[考研] 一志愿沪9，求生物学调剂，326分 +6 刘墨墨 2026-04-04 6/300 2026-04-04 19:44 by 唐沐儿
[考研] 22408，264求调剂 +3 ywh729 2026-04-03 4/200 2026-04-04 11:04 by ywh729
信息提示
关闭
请填处理意见
关闭