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

2024-10-22 22:26:05

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);
}

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

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 根据字符串找到函数并执行的实例

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 XE5 为Android应用制作签名的方法(图文)

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

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实现透明窗体上绘制随机出现的小球(实例代码)

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

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

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

相关推荐

随机推荐