delphi 改变闪动光标
2024-09-29 17:27:11
delphi 改变闪动光标
// 不同风格的光标
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
CreateCaret(Edit1.Handle, 0, 10, 4);
ShowCaret(Edit1.Handle);
end;// 用图像做光标
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
CreateCaret(Memo1.Handle, Image1.Picture.Bitmap.Handle, 0, 0);
ShowCaret(Memo1.Handle);
end;
最新文章
- 【leetcode】Simplify Path
- The Strategy pattern
- 【codevs1163】访问艺术馆
- Openstack的项目管理方案
- Using User-Named Triggers in Oracle Forms
- select、poll、epoll之间的区别
- 将本地仓库托管到GitHub
- Js-Html 前端系列--checkbox
- GB2312转unicode程序(转)
- iOS开发——设计模式那点事
- Akka（22）： Stream：实时操控：动态管道连接-MergeHub,BroadcastHub and PartitionHub
- phoenix
- C#微信公众号开发——错误一
- JAVA之字符串
- Vysor破解助手for Linux and macOS
- Java组合模式
- react-native-router-flux
- 4面向对象（OOP）
- 写一个shell 快速启动停止你的微服务吧
- IKVM.NET入门（1）