WinAPI: 输入光标相关的函数[3]
2008-11-04 15:25
267 查看
本例测试修改光标的形色, 效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: TRadioGroup; procedure FormCreate(Sender: TObject); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure RadioGroup1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} var bit: TBitmap; procedure TForm1.FormCreate(Sender: TObject); const c = '★'; begin RadioGroup1.Caption := '光标形色'; RadioGroup1.Items.CommaText := '黑色,灰度,自定义'; RadioGroup1.ItemIndex := 0; bit := TBitmap.Create; bit.Canvas.Font.Size := 16; bit.Width := bit.Canvas.TextWidth(c); bit.Height := bit.Canvas.TextHeight(c); bit.Canvas.TextOut(0, 0, c); end; procedure TForm1.FormDestroy(Sender: TObject); begin SetCaretBlinkTime(530); bit.Free; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var h: HBITMAP; begin DestroyCaret; h := 0; case RadioGroup1.ItemIndex of 1: h := 1; 2: h := bit.Handle; end; CreateCaret(Handle, h, 4, 32); SetCaretPos(X,Y); ShowCaret(Handle); end; procedure TForm1.RadioGroup1Click(Sender: TObject); var h: HBITMAP; pt: TPoint; begin GetCaretPos(pt); DestroyCaret; h := 0; case RadioGroup1.ItemIndex of 1: h := 1; 2: h := bit.Handle; end; CreateCaret(Handle, h, 4, 32); SetCaretPos(pt.X, pt.Y); ShowCaret(Handle); end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 137 ClientWidth = 228 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy OnMouseUp = FormMouseUp PixelsPerInch = 96 TextHeight = 13 object RadioGroup1: TRadioGroup Left = 137 Top = 16 Width = 80 Height = 113 Caption = 'RadioGroup1' TabOrder = 0 OnClick = RadioGroup1Click end end
相关文章推荐
- WinAPI: 输入光标相关的函数[2]
- WinAPI: 输入光标相关的函数[4]
- WinAPI: 输入光标相关的函数[1]
- Linux 路由 学习笔记 之十一 输入、输出路由查找相关的接口函数
- STL中流相关的输入输出符和get函数彻底总结:cin、cin.get()、cin.getline()、getline()、gets()等函数的用法
- 文件磁盘相关函数[15]-获取磁盘空间信息 WinAPI:GetDiskFreeSpaceEx;
- C++中与输入相关的istream类成员函数简介
- 与中文输入相关的函数
- C语言字符输入相关函数
- Python的输入和raw_input()内建函数等以及相关运算符
- 输入函数相关博客学习总结
- shell(2):shell中关于if,while,输入参数,函数,c++进程等相关知识应用汇集事例
- WinAPI【钩子相关函数】 HOOK例解
- C语言第六回合:输入输出相关出函数大集合
- C++的输入cin函数的相关用法1
- 管理输入光标的 WIN32 API 函数
- 解决js函数replace禁止输入框输入非法字符,光标回到文字最后问题(兼容ie、谷歌)
- 解决js函数replace禁止输入框输入非法字符,光标回到文字最后问题
- 输入m个学生,每个学生有4门课,在主调函数中输入学生的相关信息,编写三个函数: (1)求第一门课的平均分; (2)找出有两门课以上不及格的学生,并输出他们的学号和全部成绩,要求用指针函数实现:fl
- 输入相关函数