{

作者: 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制作软键盘的更多相关文章

  1. Android学习笔记_点九绘图与软键盘和事件传递

    最近项目里遇到的几个小问题,以前只是用吗没有深入看过,现在总结到一起,防止以后这种小问题占用太多时间.还是通过网上别人总结的很多博客学习了,挑选出最易懂明了的. 还有leader很小的问题都不放过,亲 ...

  2. 微信浏览器软键盘弹出与页面resize的问题

    使用微信打开网页,弹出软键盘时遇到的兼容问题 过去开发中遇到过很多这种情况,页面底部需要固定定位一个按钮,广告栏或者菜单栏,页面中有表单项需要填写,在打开手机虚拟键盘的时候,底部固定定位的元素会处在软 ...

  3. 基于jQuery的软键盘

    基于jQuery的软键盘   前些天写了一个基于基于jQuery的数字键盘,今天给大家带来一个基于jQuery的全字母键盘插件(支持全字母大小写切换,数字输入,退格清除,关闭功能,可调整大小和键盘位置 ...

  4. Android中点击隐藏软键盘最佳方法——Android开发之路4

    Android中点击隐藏软键盘最佳方法 实现功能:点击EditText,软键盘出现并且不会隐藏,点击或者触摸EditText以外的其他任何区域,软键盘被隐藏: 1.重写dispatchTouchEve ...

  5. Android之弹出/隐藏系统软键盘

    Android弹出/隐藏系统软键盘的代码如下: InputMethodManager imm = (InputMethodManager) getSystemService(Context.INPUT ...

  6. EditText获取和失去焦点,软键盘的关闭,和软键盘的显示和隐藏的监听

    软键盘显示和隐藏的监听: 注: mReplayRelativeLayout是EditText的父布局 //监听软键盘是否显示或隐藏 mReplayRelativeLayout.getViewTreeO ...

  7. Android -- 软键盘

    1. 应用启动后,自动打开软键盘 InputMethodManager imm = (InputMethodManager) getSystemService(Context.INPUT_METHOD ...

  8. form表单提交和ajax表单提交,关于移动端如何通过软键盘上的【搜索】和【前进】进行提交操作

    [文章来源]由于自己对于form研究甚少,所以一直用的都是AJAX进行提交,这次后台提出要用form提交,顺便深入研究一下:之前在做表单的时候,发现input可以通过设置不同的type属性,调用不同的 ...

  9. iOS 点击TextField不弹出软键盘的解决方案

    开发中遇到: 在模拟器里面,textfield可以通过电脑键盘输入,可是怎么也不会自动弹出模拟器软键盘 解决方案: 切换一下键盘,command+shift+k,Xcode6.3 中只能是一种输入源

随机推荐

  1. java基础知识(二)-----多态和构造函数

    一:前言 最近由于面试了新浪公司,面试官问我的问题我都不知道,觉得自己好菜,所以最近决定再把java基础给搞一遍,真的觉得自己好菜.每天看一点,那个家伙说<java编程思想>最少要看三遍, ...

  2. noip车站分级 拓扑排序

    题目传送门 这道题呢 每次输入一段数就把1~n里面没有在这组数里面的数和他们连一波 表示这些数比他们等级低 然后就搞一搞就好了哇 #include<cstdio> #include< ...

  3. bzoj 1022 SJ定理

    与传统的SG游戏不同的是,完成最后一个状态的人是输的,我们把这一类问题称作Anti-SG,这类问题的解决我们需要引入一个定理—SJ定理: 对于任意一个Anti-SG游戏,如果我们规定当局面中所有的单一 ...

  4. django中管理程序2

    升级版 from os import path TASKS_ROOT = path.dirname(path.abspath(path.dirname(__file__))) PYTHON_ROOT ...

  5. Google Intern

    申请 事情应该从去年(2013)说起,好基友从百度离职跳到了Google,回学校打印本科成绩单,然后晚上在scuacm群里,结果Dr. zuo问我想去实习么,正好有学长可以内推. 于是乎写了简历,然后 ...

  6. mysql五-2:多表查询

    一 介绍 本节主题 多表连接查询 复合条件连接查询 子查询 准备表 company.employeecompany.department #建表 create table department( id ...

  7. Python标准库——collections模块的Counter类

    1.collections模块 collections模块自Python 2.4版本开始被引入,包含了dict.set.list.tuple以外的一些特殊的容器类型,分别是: OrderedDict类 ...

  8. Oracle基础 03 回滚表空间 undo

    --查询默认的undo表空间 select name,value from v$parameterwhere name like '%undo%'; --创建 undotbs2 表空间 create ...

  9. 【bzoj1086】王室联邦

    我以为树分块什么的必有高论,结果居然是个暴力…… 方法也很简单,我看下每个节点dfs的时候是否已经大于k个,大于的话我就新开一块. 注意dfs的时候当前节点不能放进子树的块中. #include< ...

  10. Newtonsoft.Json 序列化和反序列化 以及时间格式

    1.JSON序列化 string JsonStr= JsonConvert.SerializeObject(Entity); eg:   A a=new A(); a.Name="Elain ...