Delphi 在窗體上創(chuàng)建自己光標(biāo)的實(shí)例

2020-01-31 20:50:14

字體：大中小

供稿：網(wǎng)友

Delphi 在窗體上創(chuàng)建自己光標(biāo)的實(shí)例

我們知道在文本框等可以接收輸入的組件中，我們可以看到閃爍的光標(biāo)，并可以輸入文字，如果我們在，比如窗體上時(shí)，因?yàn)椴恢С州斎?，也無法顯示閃爍的光標(biāo)，那我們有辦法做自己的輸入嗎？當(dāng)然可以，下面我們演示在Form上來輸入文字。

用到的API函數(shù)如下

GetTextMetrics：獲取程序當(dāng)前的字體信息，存放到TEXTMETRIC結(jié)構(gòu)中
CreateCaret：為系統(tǒng)插入標(biāo)記創(chuàng)建一個(gè)新的形狀，并且將插入標(biāo)記的屬主關(guān)系指定給特定的窗口。插入標(biāo)記的形狀?？梢允蔷€、塊或位圖
ShowCaret：顯示光標(biāo)
SetCaretPos：設(shè)置光標(biāo)的位置

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 的第二個(gè)參數(shù)是HBITMAP類型，所以你可以使用自己的圖形作為光標(biāo)形狀，這里采用默認(rèn)  后面兩個(gè)參數(shù)是光標(biāo)的寬度和高度,可以自定義  }  CreateCaret(Self.Handle,HBITMAP(nil),tm.tmAveCharWidth div 2,tm.tmHeight);  ShowCaret(Self.Handle);  //在(10，,10)這個(gè)點(diǎn)上顯示  SetCaretPos(10,10); end;  //窗體按鍵事件，每次按一個(gè)鍵后，重寫s的值，在OnPaint事件中會(huì)把s的值 畫到窗體上 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin  //如果是退格鍵，則刪除前一個(gè)字符  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);  //重新設(shè)置光標(biāo)位置  SetCaretPos(Self.Canvas.TextWidth(s)+10,10); end;  end.

VC代碼

//全局字符串變量 CString s;  //初始化時(shí)，設(shè)置光標(biāo) BOOL CTest_MFCDlg::OnInitDialog() {  CDialog::OnInitDialog();   ShowSelfCaret();    ...... }  //為窗體添加函數(shù)，初始化光標(biāo) 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的內(nèi)容畫到窗體上 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); }