文档章节

WinAPI: LoadCursor - 从资源中载入光标

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 175
阅读 8
收藏 0
//声明:
LoadCursor(
  hInstance: HINST;   {EXE 或 DLL 的句柄, 0 表示载入系统资源}
  lpCursorName: PChar {资源标识符}
): HCURSOR;           {返回光标句柄}

 
 
 
 
 

 

 

  
这里有示例
//调用系统光标的例子:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  cur: TIcon;
begin
  cur := TIcon.Create;

  cur.Handle := LoadCursor(0, IDC_HAND);
  Canvas.Draw(11,11,cur);
  cur.Handle := LoadCursor(0, IDC_HELP);
  Canvas.Draw(44,11,cur);

  cur.Free;
end;

end.

 
 
 
 
 

 

 

  
//效果图:

//附系统光标列表:
IDC_ARROW       = MakeIntResource(32512);
IDC_IBEAM       = MakeIntResource(32513);
IDC_WAIT        = MakeIntResource(32514);
IDC_CROSS       = MakeIntResource(32515);
IDC_UPARROW     = MakeIntResource(32516);
IDC_SIZE        = MakeIntResource(32640);
IDC_ICON        = MakeIntResource(32641);
IDC_SIZENWSE    = MakeIntResource(32642);
IDC_SIZENESW    = MakeIntResource(32643);
IDC_SIZEWE      = MakeIntResource(32644);
IDC_SIZENS      = MakeIntResource(32645);
IDC_SIZEALL     = MakeIntResource(32646);
IDC_NO          = MakeIntResource(32648);
IDC_HAND        = MakeIntResource(32649);
IDC_APPSTARTING = MakeIntResource(32650);
IDC_HELP        = MakeIntResource(32651);

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/02/15/1070197.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
用vc6.0新建一个win32 application工程,建立一个输出hello 的cpp,编译链接通过,就是没有窗口显示

并且,其实已经打开了一个exe程序,但是他不会自动关闭,要自己去任务管理器哪里手动关闭??? 我在网上找了一个,和我的一样啊,为什么被人的能出来,我的就不行? 我的: /*贪吃蛇 1.项目...

文刀人韦
2017/08/07
27
0
delphi资源文件制作及使用详解

delphi资源文件制作及使用详解 摘自:http://www.ej38.com/showinfo/delphi-131567.html 一、引子: 现在的Windows应用程序几乎都使用图标、图片、光标、声音等,我们称它们为资源(Resourc...

vga
2015/03/03
0
0
在编写一个Winodw练习题遇到一个问题

#include #include LRESULT CALLBACK WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam); int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine, i......

JDSIS
2014/05/06
218
3
1.1.5-学习Opencv与MFC混合编程之---画图工具 输入文字和填充图像 修改光标

源代码:http://download.csdn.net/detail/nuptboyzhb/3961696 输入文字 l 对话框 1. 插入,资源,选择对话框资源 2. 编辑对话框如下: 设置每一个控件的属性。 3. 双击对话框,建立对话框的...

长平狐
2012/10/08
325
0
mfc里面关于创建窗口控件的问题

遇到的问题是使用在WM_CREATE消息中使用CreateWindow()创建控件,可是运行后并没有显示出来,不知道问题所在,求解!!!下面是代码: #include #include #include long WINAPI WndProc(HWN...

CodeZero
2013/05/19
338
2

没有更多内容

加载失败,请刷新页面

加载更多

linux使用ntfs-3g操作ntfs格式硬盘

Linux内核目前只支持对微软NTFS文件系统的读取。 NTFS-3G 是微软 NTFS 文件系统的一个开源实现,同时支持读和写。NTFS-3G 开发者使用 FUSE 文件系统来辅助开发,同时对可移植性有益。 安装 ...

linuxprobe16
今天
1
0
kubeadm部署kubernetes集群

一、环境要求 这里使用RHEL7.5 master、etcd:192.168.10.101,主机名:master node1:192.168.10.103,主机名:node1 node2:192.168.10.104,主机名:node2 所有机子能基于主机名通信,编辑...

人在艹木中
今天
10
0
Shell特殊符号总结以及cut,sort,wc,uniq,tee,tr,split命令

特殊符号总结一 * 任意个任意字符 ? 任意一个字符 # 注释字符 \ 脱义字符 | 管道符 # #号后的备注被忽略[root@centos01 ~]# ls a.txt # 备注 a.txt[root@centos01 ~]# a=1[root@centos01...

野雪球
今天
3
0
OSChina 周二乱弹 —— 程序员圣衣

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @达尔文:分享Skeeter Davis的单曲《The End of the World》 《The End of the World》- Skeeter Davis 手机党少年们想听歌,请使劲儿戳(这里...

小小编辑
今天
20
0
[ python import module ] 导入模块

import moudle_name ----> import module_name.py ---> import module_name.py文件路径 -----> sys.path (这里进行查找文件) # from app.web import Personimport app.web.Person as Pe......

_______-
昨天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部