Create your own cursor on the form and enter text

We know that in the text box, such as can receive input components, we can see the flashing cursor, and can enter text, if we are in, such as the form, because the input is not supported, also cannot display the flashing cursor, then we have a way to do their own input? Of course, we'll show you how to enter text on a form.

The API functions used are as follows

GetTextMetrics: Gets the current font information for the program and stores it in the textmetric structure

CreateCaret: Creates a new shape for the system caret and assigns the owner of the insertion mark to a specific window. Inserts the shape of the marker. Can be a line, block, or bitmap

ShowCaret: Display cursor

Setcaretpos: Setting the position of the cursor

Delphi Code

[Delphi]View Plaincopy

2. Unit Unit1;
6. Interface
10. Uses
12. Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
14. Dialogs, Stdctrls;
18. Type
20. TForm1 = Class (Tform)
22. procedure formcreate (sender:tobject);
24. procedure formkeypress (sender:tobject;  var key:char);
26. procedure Formpaint (sender:tobject);
28. Private
30. {Private declarations}
32. S:string;
34. Public
36. {public declarations}
38. end;
42. Var
44. Form1:tform1;
48. Implementation
52. {$R *.DFM}
56. Procedure TForm1.  Formcreate (Sender:tobject);
58. Var
60. //ttextmetric Storing font information
62. Tm:ttextmetric;
64. Begin
66. S: = ';
68. GetTextMetrics (self. Canvas.  HANDLE,TM);
70. { 
72. Note that the second parameter of CreateCaret is the hbitmap type, so you can use your own graphics as the cursor shape, with the default
74. The following two parameters are the width and height of the cursor and can be customized
76. }
78. CreateCaret (self.  Handle,hbitmap (nil), TM. Tmavecharwidth Div 2,tm. tmheight);
80. ShowCaret (self.  Handle);
82. //at (10,,10) this point shows
84. Setcaretpos (Ten,10);
86. End
90. Form key event, each time a key is pressed, the value of S is rewritten, and the value of S is drawn on the form in the OnPaint event
92. Procedure TForm1. Formkeypress (Sender:tobject;  var key:char);
94. Begin
96. //If it is a backspace key, delete the previous character
98. if Ord (Key) = Vk_back Then
100. begin
102. if (s <> ") Then
104. Delete (S,length (s),1);
106. End
108. Else
110. S: = s + Key;
112. // Redraw
114. Self.  Invalidate;
116. End
120. Procedure TForm1.  Formpaint (Sender:tobject);
122. Begin
124. Self. Canvas.  TextOut (ten,10,s);
126. //Reset cursor position
128. Setcaretpos (self. Canvas.  TextWidth (s) +Ten,10);
130. End
134. End.

VC Code

[CPP]View Plaincopy

2. Global string variables
4. CString s;
8. When initializing, set the cursor
10. BOOL Ctest_mfcdlg::oninitdialog ()
12. {
14. CDialog::OnInitDialog ();
16. Showselfcaret ();
18. ......
20. }
24. Add a function to the form, initialize the cursor
26. void Ctest_mfcdlg::showselfcaret (void)
28. {
30. CCLIENTDC DC (this);
32. Textmetric TM;
34. dc.  GetTextMetrics (&TM);
36. Createsolidcaret (tm.tmavecharwidth/2,tm.tmheight);
38. ShowCaret ();
40. Point P;
42. p.x = 0;
44. P.Y = 0;
46. Setcaretpos (P);
48. }
52. Heavy Duty PreTranslateMessage
54. BOOL Ctest_mfcdlg::P retranslatemessage (msg* pMsg)
56. {
58. //If the button is pressed
60. if (pmsg->message = = Wm_keydown)
62. {
64. //If the backspace key, delete the end character
66. if (Pmsg->wparam = = Vk_back)
68. {
70. if (s.getlength ()! = 0)
72. {
74. S.delete (S.getlength ());
76. }
78. }
80. Else
82. //Append character
84. S.insert (S.getlength (), (TCHAR) pmsg->wparam);
86. Invalidate (true);
88. }
90. return CDialog::P retranslatemessage (PMSG);
92. }
96. Self-painting, drawing s content onto form
98. void Ctest_mfcdlg::onpaint ()
100. {
102. CPaintDC DC (this);
104. CRect rect;
106. GetClientRect (&rect);
108. CSize size = DC. GetTextExtent (s);
110. Point P;
112. p.x = size.cx;
114. P.Y = 0;
116. Setcaretpos (P);
118. dc. DrawText (S,s.getlength (), rect,dt_left);
120. }

Reference:

http://blog.csdn.net/bdmh/article/details/6456353