本文整理自网络,侵删。
Windows 编程[3] - 学习窗体生成的过程三根据前面的理论, 一个窗口生成的框架应该是这个样子:program Project1;
uses Windows; {前面提到的函数都来自 Windows 单元}
var hWnd : THandle; {声明窗口句柄} MyWndClass: TWndClass; {声明一个窗口类型}begin //在这里设置 MyWndClass 的参数(譬如窗口图标、光标和画刷等等), 包括指定 "类名"
{然后注册} RegisterClass(MyWndClass); {建立并返回句柄} hWnd := CreateWindow(类名, 标题, 样式, X,Y, 宽,高, 0, 0, HInstance, nil); {显示} ShowWindow(hWnd, SW_SHOWNORMAL);end.
这个窗口类型 TWndClass 其实是一个结构, 是 tagWNDCLASSA 结构的重命名.{tagWNDCLASSA 结构:}tagWNDCLASSA = packed record style: UINT; {窗口风格, 见下表} lpfnWndProc: TFNWndProc; {窗口回调函数的指针, 后面要详细分析} cbClsExtra: Integer; {为窗口类分配的额外空间, 一般为 0} cbWndExtra: Integer; {为窗口实例分配的额外空间, 一般为 0} hInstance: HINST; {窗口所在程序实例的句柄, 就是 HInstance} hIcon: HICON; {指定窗口图标, 一般用 LoadIcon 加载; 不指定可设为 0} hCursor: HCURSOR; {指定窗口光标, 一般用 LoadCursor 加载; 不指定可设为 0} hbrBackground: HBRUSH; {指定窗口背景画刷, 这需要用 GetStockObject 函数检索; 也可以直接指定系统颜色} lpszMenuName: PAnsiChar; {菜单资源名称; 一般置为 nil, 表示窗口没有默认菜单} lpszClassName: PAnsiChar; {给该窗口类命名; CreateWindow 函数将使用这个名称}end;
//窗口风格参数 style 可选值:CS_VREDRAW = DWORD(1); {窗口高度变化时将被重绘}CS_HREDRAW = DWORD(2); {窗口宽度变化时将被重绘}CS_KEYCVTWINDOW = 4; {}CS_DBLCLKS = 8; {不忽略鼠标双击的消息}CS_OWNDC = $20; {给用该类建立的每一个窗口分配独立的设备 DC}CS_CLASSDC = $40; {让属于该类的所有窗口共享一个设备 DC}CS_PARENTDC = $80; {允许窗口的子窗口继承一些共同特性}CS_NOKEYCVT = $100; {}CS_NOCLOSE = $200; {禁用系统菜单的 Close命令,同时窗口没有关闭按钮}CS_SAVEBITS = $800; {当窗口被覆盖时, 用位图缓存被覆盖区, 从而避免 WM_PAINT 消息, 一般用于菜单或对话框}CS_BYTEALIGNCLIENT = $1000; {通过字节对齐, 增强客户区的绘制性能}CS_BYTEALIGNWINDOW = $2000; {通过字节对齐, 增强窗口的绘制性能}CS_GLOBALCLASS = $4000; {全局窗口类, 一般用于 DLL; 没有此选项, 窗口类和窗口建立函数中指定的实例句柄须相同}
//关于窗口背景画刷:{系统预定义了一些画刷, 需要用 GetStockObject 根据指定的常数检索;}{但 GetStockObject 返回的句柄有可能是画刷、画笔、调色板或系统字体的句柄,}{所以还需要把 GetStockObject 返回的句柄进行类型转换, 譬如: HBRUSH(GetStockObject(常数))}//下面是 GetStockObject 函数参数的可选值:WHITE_BRUSH = 0;LTGRAY_BRUSH = 1;GRAY_BRUSH = 2;DKGRAY_BRUSH = 3;BLACK_BRUSH = 4;NULL_BRUSH = 5;HOLLOW_BRUSH = NULL_BRUSH;WHITE_PEN = 6;BLACK_PEN = 7;NULL_PEN = 8;OEM_FIXED_FONT = 10;ANSI_FIXED_FONT = 11;ANSI_VAR_FONT = 12;SYSTEM_FONT = 13;DEVICE_DEFAULT_FONT = 14;DEFAULT_PALETTE = 15;SYSTEM_FIXED_FONT = $10;DEFAULT_GUI_FONT = 17;DC_BRUSH = 18;DC_PEN = 19;STOCK_LAST = 19;
{另外背景画刷还可以使用 Windows 定义系统颜色常量, 譬如: HBRUSH(COLOR_WINDOW + 1) }COLOR_SCROLLBAR = 0;COLOR_BACKGROUND = 1;COLOR_ACTIVECAPTION = 2;COLOR_INACTIVECAPTION = 3;COLOR_MENU = 4;COLOR_WINDOW = 5;COLOR_WINDOWFRAME = 6;COLOR_MENUTEXT = 7;COLOR_WINDOWTEXT = 8;COLOR_CAPTIONTEXT = 9;COLOR_ACTIVEBORDER = 10;COLOR_INACTIVEBORDER = 11;COLOR_APPWORKSPACE = 12;COLOR_HIGHLIGHT = 13;COLOR_HIGHLIGHTTEXT = 14;COLOR_BTNFACE = 15;COLOR_BTNSHADOW = $10;COLOR_GRAYTEXT = 17;COLOR_BTNTEXT = 18;COLOR_INACTIVECAPTIONTEXT = 19;COLOR_BTNHIGHLIGHT = 20;COLOR_3DDKSHADOW = 21;COLOR_3DLIGHT = 22;COLOR_INFOTEXT = 23;COLOR_INFOBK = 24;COLOR_HOTLIGHT = 26;COLOR_GRADIENTACTIVECAPTION = 27;COLOR_GRADIENTINACTIVECAPTION = 28;COLOR_MENUHILIGHT = 29;COLOR_MENUBAR = 30;COLOR_ENDCOLORS = COLOR_MENUBAR;COLOR_DESKTOP = COLOR_BACKGROUND;COLOR_3DFACE = COLOR_BTNFACE;COLOR_3DSHADOW = COLOR_BTNSHADOW;COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT;COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT;COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT;
整理一下思路:
要显示一个窗口, 需要先建立一个窗口;要建立一个窗口, 需要先注册一个窗口类型;注册前需要给窗口类型指定种种特性, 这些特性里面, 最重要的就是指定"窗口的回调函数"!此回调函数必须要按照 Windows 指定的格式(只有函数名和参数名可变):function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;begin ...end;
在该回调函数中, 要处理发送到窗口的所有消息;
但消息非常非常多, 不可能都做处理, 不需要的消息都要通过 DefWindowProc 函数做默认处理.
DefWindowProc 函数的参数和回调函数的参数一直, 并返回回调函数需要的返回值.
譬如我们只处理 WM_DESTROY 消息:function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;begin if msg = WM_DESTROY then ... else Result := DefWindowProc(wnd, msg, wParam, lParam);end;
相关阅读 >>
Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明
Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露
Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值
Delphi 10 seattle android应用程序使用toast
Delphi listboxadditems() 不重复添加edit1
更多相关阅读请进入《Delphi》频道 >>