Delphi制作软键盘
{
作者: han
日期: 2006.06.02
}
unit softkey;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RxGIF, ExtCtrls;
type
Tkeyfrm = class(TForm)
img0: TImage;
img5: TImage;
img4: TImage;
img3: TImage;
img8: TImage;
img9: TImage;
img7: TImage;
img2: TImage;
img1: TImage;
img6: TImage;
imgtg: TImage;
imgyc: TImage;
procedure WMActivate(var Message: TMessage); message WM_ACTIVATE;
procedure imgtgClick(Sender: TObject);
procedure imgycClick(Sender: TObject);
procedure OnNumClick(Sender: TObject);
private
{ Private declarations }
procedure Sendkeys(Hz: longint; state: longint=0);
public
{ Public declarations }
HActWin,Hself: Longint;
end;
var
keyfrm: Tkeyfrm;
implementation
{$R *.dfm}
{ Tkeyfrm }
{-------------------------------------------------------------------------------
过程名: Tkeyfrm.Sendkeys
参数: Hz: Longint; State: Longint=0
返回值: 无
说明: 发送键盘消息函数
-------------------------------------------------------------------------------}
procedure Tkeyfrm.Sendkeys(Hz: Longint; State: Longint=0);
var
FocusHld,WindowHld: hwnd;
ThreadId: dword;
begin
WindowHld := GetForegroundWindow;
ThreadId := GetWindowThreadProcessId(WindowHld,nil);
AttachThreadInput(GetCurrentThreadId,ThreadId,True);
FocusHld := GetFocus;
if FocusHld = 0 then Exit;
PostMessage(FocusHld,WM_KEYDOWN,$+Hz,0);
end;
{-------------------------------------------------------------------------------
过程名: Tkeyfrm.OnNumClick
参数: Sender: TObject
返回值: 无
说明: 键盘消息
-------------------------------------------------------------------------------}
procedure Tkeyfrm.OnNumClick(Sender: TObject);
var
tmp: string;
i: Integer;
begin
tmp:= Copy(TImage(Sender).Name,Length(TImage(Sender).Name),1);
i:= StrToInt(tmp);
SetActiveWindow(HActWin);
case i of
0: Sendkeys(48);
1: Sendkeys(49);
2: Sendkeys(50);
3: Sendkeys(51);
4: Sendkeys(52);
5: Sendkeys(53);
6: Sendkeys(54);
7: Sendkeys(55);
8: Sendkeys(56);
9: Sendkeys(57);
end;
end;
{-------------------------------------------------------------------------------
过程名: Tkeyfrm.WMActivate
参数: var Message: TMessage
返回值: 无
说明: 消息回调函数
-------------------------------------------------------------------------------}
procedure Tkeyfrm.WMActivate(var Message: TMessage);
begin
if Message.wParam = WA_CLICKACTIVE then
begin
if (HActWin <> message.lParam) and (message.lParam <> Hself) then
HActWin := message.lParam;
end;
end;
procedure Tkeyfrm.imgtgClick(Sender: TObject);
begin
SetActiveWindow(HActWin);
Sendkeys(8);
end;
procedure Tkeyfrm.imgycClick(Sender: TObject);
begin
Self.Hide;
end;
end.
Delphi制作软键盘的更多相关文章
- Android学习笔记_点九绘图与软键盘和事件传递
最近项目里遇到的几个小问题,以前只是用吗没有深入看过,现在总结到一起,防止以后这种小问题占用太多时间.还是通过网上别人总结的很多博客学习了,挑选出最易懂明了的. 还有leader很小的问题都不放过,亲 ...
- 微信浏览器软键盘弹出与页面resize的问题
使用微信打开网页,弹出软键盘时遇到的兼容问题 过去开发中遇到过很多这种情况,页面底部需要固定定位一个按钮,广告栏或者菜单栏,页面中有表单项需要填写,在打开手机虚拟键盘的时候,底部固定定位的元素会处在软 ...
- 基于jQuery的软键盘
基于jQuery的软键盘 前些天写了一个基于基于jQuery的数字键盘,今天给大家带来一个基于jQuery的全字母键盘插件(支持全字母大小写切换,数字输入,退格清除,关闭功能,可调整大小和键盘位置 ...
- Android中点击隐藏软键盘最佳方法——Android开发之路4
Android中点击隐藏软键盘最佳方法 实现功能:点击EditText,软键盘出现并且不会隐藏,点击或者触摸EditText以外的其他任何区域,软键盘被隐藏: 1.重写dispatchTouchEve ...
- Android之弹出/隐藏系统软键盘
Android弹出/隐藏系统软键盘的代码如下: InputMethodManager imm = (InputMethodManager) getSystemService(Context.INPUT ...
- EditText获取和失去焦点,软键盘的关闭,和软键盘的显示和隐藏的监听
软键盘显示和隐藏的监听: 注: mReplayRelativeLayout是EditText的父布局 //监听软键盘是否显示或隐藏 mReplayRelativeLayout.getViewTreeO ...
- Android -- 软键盘
1. 应用启动后,自动打开软键盘 InputMethodManager imm = (InputMethodManager) getSystemService(Context.INPUT_METHOD ...
- form表单提交和ajax表单提交,关于移动端如何通过软键盘上的【搜索】和【前进】进行提交操作
[文章来源]由于自己对于form研究甚少,所以一直用的都是AJAX进行提交,这次后台提出要用form提交,顺便深入研究一下:之前在做表单的时候,发现input可以通过设置不同的type属性,调用不同的 ...
- iOS 点击TextField不弹出软键盘的解决方案
开发中遇到: 在模拟器里面,textfield可以通过电脑键盘输入,可是怎么也不会自动弹出模拟器软键盘 解决方案: 切换一下键盘,command+shift+k,Xcode6.3 中只能是一种输入源
随机推荐
- java基础知识(二)-----多态和构造函数
一:前言 最近由于面试了新浪公司,面试官问我的问题我都不知道,觉得自己好菜,所以最近决定再把java基础给搞一遍,真的觉得自己好菜.每天看一点,那个家伙说<java编程思想>最少要看三遍, ...
- noip车站分级 拓扑排序
题目传送门 这道题呢 每次输入一段数就把1~n里面没有在这组数里面的数和他们连一波 表示这些数比他们等级低 然后就搞一搞就好了哇 #include<cstdio> #include< ...
- bzoj 1022 SJ定理
与传统的SG游戏不同的是,完成最后一个状态的人是输的,我们把这一类问题称作Anti-SG,这类问题的解决我们需要引入一个定理—SJ定理: 对于任意一个Anti-SG游戏,如果我们规定当局面中所有的单一 ...
- django中管理程序2
升级版 from os import path TASKS_ROOT = path.dirname(path.abspath(path.dirname(__file__))) PYTHON_ROOT ...
- Google Intern
申请 事情应该从去年(2013)说起,好基友从百度离职跳到了Google,回学校打印本科成绩单,然后晚上在scuacm群里,结果Dr. zuo问我想去实习么,正好有学长可以内推. 于是乎写了简历,然后 ...
- mysql五-2:多表查询
一 介绍 本节主题 多表连接查询 复合条件连接查询 子查询 准备表 company.employeecompany.department #建表 create table department( id ...
- Python标准库——collections模块的Counter类
1.collections模块 collections模块自Python 2.4版本开始被引入,包含了dict.set.list.tuple以外的一些特殊的容器类型,分别是: OrderedDict类 ...
- Oracle基础 03 回滚表空间 undo
--查询默认的undo表空间 select name,value from v$parameterwhere name like '%undo%'; --创建 undotbs2 表空间 create ...
- 【bzoj1086】王室联邦
我以为树分块什么的必有高论,结果居然是个暴力…… 方法也很简单,我看下每个节点dfs的时候是否已经大于k个,大于的话我就新开一块. 注意dfs的时候当前节点不能放进子树的块中. #include< ...
- Newtonsoft.Json 序列化和反序列化 以及时间格式
1.JSON序列化 string JsonStr= JsonConvert.SerializeObject(Entity); eg: A a=new A(); a.Name="Elain ...