Delphi 在窗体上创建自己光标的实例

Delphi 在窗体上创建自己光标的实例

我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？当然可以，下面我们演示在Form上来输入文字。

用到的API函数如下

  • GetTextMetrics：获取程序当前的字体信息，存放到TEXTMETRIC结构中
  • CreateCaret：为系统插入标记创建一个新的形状，并且将插入标记的属主关系指定给特定的窗口。插入标记的形状。可以是线、块或位图
  • ShowCaret：显示光标
  • SetCaretPos：设置光标的位置

Delphi代码

unit Unit1; 

interface 

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls; 

type
 TForm1 = class(TForm)
 procedure FormCreate(Sender: TObject);
 procedure FormKeyPress(Sender: TObject; var Key: Char);
 procedure FormPaint(Sender: TObject);
 private
 { Private declarations }
 s:string;
 public
 { Public declarations }
 end; 

var
 Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject);
var
 //TTextMetric存放字体信息
 tm:TTextMetric;
begin
 s := '';
 GetTextMetrics(Self.Canvas.Handle,tm);
 {
 注意 CreateCaret 的第二个参数是HBITMAP类型，所以你可以使用自己的图形作为光标形状，这里采用默认
 后面两个参数是光标的宽度和高度,可以自定义
 }
 CreateCaret(Self.Handle,HBITMAP(nil),tm.tmAveCharWidth div 2,tm.tmHeight);
 ShowCaret(Self.Handle);
 //在(10，,10)这个点上显示
 SetCaretPos(10,10);
end; 

//窗体按键事件，每次按一个键后，重写s的值，在OnPaint事件中会把s的值 画到窗体上
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 //如果是退格键，则删除前一个字符
 if Ord(Key) = VK_BACK then
 begin
 if (s <> '') then
  Delete(s,Length(s),1);
 end
 else
 s := s + Key;
 //重绘
 Self.Invalidate;
end; 

procedure TForm1.FormPaint(Sender: TObject);
begin
 Self.Canvas.TextOut(10,10,s);
 //重新设置光标位置
 SetCaretPos(Self.Canvas.TextWidth(s)+10,10);
end; 

end.

VC代码

//全局字符串变量
CString s; 

//初始化时，设置光标
BOOL CTest_MFCDlg::OnInitDialog()
{
 CDialog::OnInitDialog();
 ShowSelfCaret();
   ......
} 

//为窗体添加函数，初始化光标
void CTest_MFCDlg::ShowSelfCaret(void)
{
 CClientDC dc(this);
 TEXTMETRIC tm;
 dc.GetTextMetrics(&tm);
 CreateSolidCaret(tm.tmAveCharWidth/2,tm.tmHeight);
 ShowCaret();
 POINT p;
 p.x = 0;
 p.y = 0;
 SetCaretPos(p);
} 

//重载PreTranslateMessage
BOOL CTest_MFCDlg::PreTranslateMessage(MSG* pMsg)
{
 //如果是按键按下
 if (pMsg->message == WM_KEYDOWN)
 {
  //如果是退格键，删除末尾字符
  if (pMsg->wParam == VK_BACK)
  {
   if (s.GetLength() != 0)
   {
    s.Delete(s.GetLength() - 1,1);
   }
  }
  else
   //追加字符
   s.Insert(s.GetLength(),(TCHAR)pMsg->wParam);
  Invalidate(true);
 }
 return CDialog::PreTranslateMessage(pMsg);
} 

//自画，将s的内容画到窗体上
void CTest_MFCDlg::OnPaint()
{
 CPaintDC dc(this);
 CRect rect;
 GetClientRect(&rect);
 CSize size = dc.GetTextExtent(s);
 POINT p;
 p.x = size.cx;
 p.y = 0;
 SetCaretPos(p);
 dc.DrawText(s,s.GetLength(),rect,DT_LEFT);
}

如有疑问请留言或者到本站社区交流讨论，感谢阅读，希望能帮助到大家，谢谢大家对本站的支持！

赞 (0)

相关推荐

  • ListView 百分比进度条(delphi版）

    ListView 百分比进度条(delphi版）

    在看代码之前先给大家附上效果图: 废话不多说了,直接给大家贴代码了. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList; type TForm1 = class(TForm) btn1: TButton; lv1: TListView; trckbr1: TTrackBa

  • Delphi XE5 为Android应用制作签名的方法(图文)

    Delphi XE5 为Android应用制作签名的方法(图文)

    要发布android应用,必须做签名的.看一下具体的操作步骤: 1.进入Project-Options: 2.打开Options窗口,选择Provisioning,在这里,可以为目标平台选择签名文件,也可生成新的签名文件. 2.1 选择目标平台,可以为dubug或release设置签名,默认情况下,debug签名文件是存在的,可不用设置,这也是我们建立一个新的Android项目,就可以不用签名就能在模拟器上跑的原因,真正发布时,是必须做签名的. 2.2,为发布做一个新的签名,选择Target为R

  • Delphi 根据字符串找到函数并执行的实例

    Delphi 根据字符串找到函数并执行的实例  关键字:MethodAddress:取得方法的地址,这个方法需要是published的. 实例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TShowInfo = procedure(info:string) of object; //声

  • Delphi提取PDF文本实例

    生成PDF的控件很多,但解析的不是太多,pdf Toolkit可以,但测试的第一个复杂的pdf就报告错误,并且汉字乱码,可能使用的版本或使用方法不对. 想起之前使用java调用的Apache名下的pdfBox库很好用,于是就用下载了pdfBox,使用Delphi来调用pdfBox解析pdf文本. 环境要求:java运行环境 pdfBox应用包:pdfbox-app-2.0.6.jar 这里使用了DOS命令行来解析,然后调用解析结果. 首先是执行DOS命令: procedure CheckResu

  • delphi制作wav文件的方法

    本文实例讲述了delphi制作wav文件的方法.分享给大家供大家参考.具体如下: 这里delphi用waveIn...函数制作wav文件 具体代码如下: //使用窗口接受音频设备发出的消息: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button

  • Delphi实现截屏存盘的方法

    本文实例讲述了Delphi实现截屏存盘的方法.分享给大家供大家参考.具体分析如下: 该实例可实现截取屏幕,并保存为JPEG文件格式的功能. procedure TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer); var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; Bitmap:TBitmap; MyJpeg: TJpegImage; Stream

  • Delphi 用DLL实现插件的简单实例

    Delphi 用DLL实现插件的简单实例 这是DLL的代码 实现代码: library MyDll; uses SysUtils, Dialogs, Classes; procedure ShowInfo(info:PChar);stdcall; begin ShowMessage('您选择了['+info+']'); end; function GetCaption:Pchar; begin Result := '中国'; end; exports ShowInfo, GetCaption;

  • Delphi基本图像处理方法汇总

    本文实例汇总了Delphi基本图像处理方法.分享给大家供大家参考.具体分析如下: //浮雕 procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload; var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple; begin for i := 0 to SrcBmp.Height -

  • Delphi 在窗体上创建自己光标的实例

    Delphi 在窗体上创建自己光标的实例

    Delphi 在窗体上创建自己光标的实例 我们知道在文本框等可以接收输入的组件中,我们可以看到闪烁的光标,并可以输入文字,如果我们在,比如窗体上时,因为不支持输入,也无法显示闪烁的光标,那我们 有办法做自己的输入吗?当然可以,下面我们演示在Form上来输入文字. 用到的API函数如下 GetTextMetrics:获取程序当前的字体信息,存放到TEXTMETRIC结构中 CreateCaret:为系统插入标记创建一个新的形状,并且将插入标记的属主关系指定给特定的窗口.插入标记的形状.可以是线.块

  • Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

    本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法.分享给大家供大家参考.具体实现方法如下: const WM_MouseEnter = $B013; WM_MouseLeave = $B014; type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Timer(Sender: TObject); protected procedure WMMouseEnter(var Msg: TMessage)

  • python使用tkinter实现透明窗体上绘制随机出现的小球(实例代码)

    python使用tkinter实现透明窗体上绘制随机出现的小球(实例代码)

    在上一篇的基础上,继续在透明窗体上绘制小球, 一.画个大球看看 (一)核心代码 在on_resize函数内部增加如下画圆的代码 canvas.create_oval(100, 100, 200, 200, outline='yellow', # 边框颜色 fill='pink', # 填充颜色 width=4 # 边框宽度 ) 运行效果如下: 嘻嘻,是不是觉得有点意思. 好吧,后续我会分享这部分的完整代码给各位,希望大家不是拿来主义,能点点赞.关注一下我啊. 二.让小球随机运动起来 (一)核心函

  • C#实现在窗体上的统计图效果

    C#实现在窗体上的统计图效果

    本文实例为大家分享了C#实现在窗体上的统计图,供大家参考,具体内容如下 忽然要用到C#来制作统计图,起初不太清除怎么弄,看了一些代码实现统计图的文档.终于实现了条形图的设置,后来又需要饼状图.本来还是想自己画的后来才发现C#是有这种窗体控件的,控件画比我强太多了. 这是我自己做的条形图的函数: public static int width = 400, height = 400;//声明宽与高   Bitmap bitmap = new Bitmap(width, height);//创建一个

  • 基于Java语言在窗体上实现飞机大战小游戏的完整步骤

    基于Java语言在窗体上实现飞机大战小游戏的完整步骤

    目录 小组项目 模块需求描述 总体开发思想 功能实现 1.登录与结束界面 2.播放音乐 3.子弹 运行测试 登陆界面 发射子弹 总结 小组项目 飞机大战:用 Java 语言在窗体上实现飞机大战小游戏,运行程序后,出现一个窗体,在窗体上用鼠标控制英雄机的移动,通过子弹打击敌机进行分数的计算,以及英雄机血量的计算等. 主要模块:登陆界面.音乐.子弹.敌机.英雄机.背景图.结束界面.BOSS 机.分数计算.血量计算. 负责模块:登陆界面.音乐.子弹.结束界面. 模块需求描述 登陆界面:运行程序后,弹出

  • .Net遍历窗体上控件的方法

    本文实例讲述了.Net遍历窗体上控件的方法.分享给大家供大家参考.具体分析如下: 本例实现遍历窗体上的控件以及找出TextBox控件,代码如下: 复制代码 代码如下: foreach( Control control in this.Controls ) {    if( control  is  TextBox )    //判断是否是TextBox控件    {        //TODO...         TextBox textBox=control;     //里氏转换     

  • winform实现拖动文件到窗体上的方法

    本文实例讲述了winform实现拖动文件到窗体上的方法.分享给大家供大家参考.具体如下: private void Form5_Load(object sender, EventArgs e) { this.AllowDrop=true; } private void Form5_DragEnter(object sender, DragEventArgs e) { if (e.Data.GetDataPresent(DataFormats.FileDrop)) { string[] files

  • 在PostgreSQL的基础上创建一个MongoDB的副本的教程

    我有一个偷懒的想法.这个好点子该如何开始呢?好吧,这是一个恰如其分的小疯狂:为什么不直接在Postgres的基础上建立我们自己的MongoDB版本呢?这听起来有点牵强附会,但却简单而实在. 当NoSQL运动风生水起的时候,Postgres社区没有干坐着摆弄他们的大拇指.他们持续开发,贯穿整个Postgres的生态系统,几个突出的功能吸引了我的眼球:整合JSON支持和PLV8.PLV8把V8 Javascript引擎引入到Postgres,他让Javascript成为一个第一类别的语言(first

  • WinForm实现拦截窗体上各个部位的点击特效实例

    本文实例讲述了WinForm实现拦截窗体上各个部位的点击特效,是一个非常实用的技巧.分享给大家供大家参考.具体分析如下: 一般来说,windows窗体的标题栏无法直接通过一些默认的事件来控制,需要了解和WM_NCHITTEST相关的windows消息. 以下示例演示了最简单的效果片断:他会把客户区和标题栏的效果互换,比如无法按住标题栏拖动窗体而是改为了按住客户区拖动,并禁用了关闭按钮. 其中m.Result从-2到21都有定义,分别对应了整个窗体的各个部位,比如1代表客户区,8代表最小化按钮等等

  • C# WinForm实现窗体上控件自由拖动功能示例

    本文实例讲述了C# WinForm实现窗体上控件自由拖动功能.分享给大家供大家参考,具体如下: 说明:首先在窗体上放一个PictrueBox控件,命名为pb1,拖动完整代码如下: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; usin

随机推荐