在窗体上创建自己的光标并输入文字
2011-05-31 11:19
302 查看
我们知道在文本框等可以接收输入的组件中,我们可以看到闪烁的光标,并可以输入文字,如果我们在,比如窗体上时,因为不支持输入,也无法显示闪烁的光标,那我们 有办法做自己的输入吗?当然可以,下面我们演示在Form上来输入文字。
用到的API函数如下
GetTextMetrics:获取程序当前的字体信息,存放到TEXTMETRIC结构中
CreateCaret:为系统插入标记创建一个新的形状,并且将插入标记的属主关系指定给特定的窗口。插入标记的形状。可以是线、块或位图
ShowCaret:显示光标
SetCaretPos:设置光标的位置
Delphi代码
VC代码
用到的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); }
相关文章推荐
- 在窗体上创建自己的光标并输入文字
- 在窗体上创建自己的光标并输入文字
- 在窗体上创建自己的光标并输入文字
- 使用Win API 创建自己的输入光标
- Delphi 在窗体上创建自己光标的实例
- 点击 UITextView 输入文字,光标都从最初点开始
- 1.1.5-学习Opencv与MFC混合编程之---画图工具 输入文字和填充图像 修改光标
- 重用自己创建的窗体
- 创建三个输入文本框,当光标离开文本框的时候如果文本框为空,则将文本框背景色设置为红色,如果不为空则为白色。提示:焦点进入控件的事件是onfocus,焦点离开控件的事件是onblur
- MFC 在光标所在位置输入文字(不同应用程序之间)
- unity NGUI的UIInput输入的UILabel 输入超过输入框长度的文字不跟着光标走的问题解决方案-maxLines
- iphone UITextView 输入文字光标都从最初点开始
- android将输入框光标自动移到输入文字最后面
- Windows Server登录后,光标到哪里都有一个蓝色的框,输入文字,就自动跳转到登陆界面
- 解决js函数replace禁止输入框输入非法字符,光标回到文字最后问题(兼容ie、谷歌)
- 创建一个输入标识符 也就是一个输入的光标
- JAVA创建一个登陆窗体,输入用户名和密码登陆。
- UITextField(限制文字输入,调整光标,内容,占位文字显示的位置,以及基本使用)
- iOS中的UITextView文字输入光标使用技巧小结
- C#下实现空白窗体中文输入,实现类PS的文字工具