Delphi 在窗體上創(chuàng)建自己光標的實例

更新時間：2017年09月04日 09:05:24 作者：bdmh

這篇文章主要介紹了Delphi 在窗體上創(chuàng)建自己光標的實例的相關資料,希望通過本文能幫助到大家，需要的朋友可以參考下

Delphi 在窗體上創(chuàng)建自己光標的實例

我們知道在文本框等可以接收輸入的組件中，我們可以看到閃爍的光標，并可以輸入文字，如果我們在，比如窗體上時，因為不支持輸入，也無法顯示閃爍的光標，那我們有辦法做自己的輸入嗎？當然可以，下面我們演示在Form上來輸入文字。

用到的API函數如下

GetTextMetrics：獲取程序當前的字體信息，存放到TEXTMETRIC結構中
CreateCaret：為系統(tǒng)插入標記創(chuàng)建一個新的形狀，并且將插入標記的屬主關系指定給特定的窗口。插入標記的形狀?？梢允蔷€、塊或位圖
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); 
}