以下是为您整理出来关于【windows编程】合集内容，如果觉得还不错，请帮忙转发推荐。
Windows 编程[14] - 菜单与菜单资源(三) 前面我们分别使用过 MENU 和 MENUEX 来指定菜单资源, 我发现用 MENU 不必注意大小写; 但 MENUEX 在使用参数时需要注意大小写! 另外, 指定相同的功能时, 它们使用的参数和格式也有很大的区别. 我想还是多了解 MENUEX 吧, 因为它的参数同时也是 Win32API 菜单函数们 需要的! MENUEX 有四个参数, 分别是: 菜单文本, 菜单标识(整数), 菜单格式(常数: MFT_*), 菜单样式(常数: MFS_*). 后两个参数...
Windows 编程[13] - 菜单与菜单资源(二) 我们可以把上例中的资源文件修改成这样:MyMenu1 MENUEX BEGINPOPUP "&File" ,65535BEGINMENUITEM "&New" ,101MENUITEM "&Open" ,102MENUITEM "&Save" ,103MENUITEM SEPARATORMENUITEM "E&xit" ,104ENDPOPUP "&Edit" ,65535BEGINMENUITEM "Cu&t" ,201MENUITEM "&Copy" ,202MENUITEM "&Paste" ,203ENDPOPUP "&Help" ,65535BEGINMENUITEM "&About" ,301...
Windows 编程[12] - 菜单与菜单资源(一) 假如我们用 TMainMenu 控件设计如下菜单: 该菜单在窗体源文件中是这样存储的: object MainMenu1: TMainMenu Left = 160 Top = 104 object File1: TMenuItemCaption = &Fileobject New1: TMenuItemCaption = &Newendobject Open1: TMenuItemCaption = &Openendobject Save1: TMenuItemCaption = &Saveendobject SaveAs1: TMenuItemCaption = Save &Asendobject N1: TMenuItemCaption = -end...
Windows 编程[11] - WM_SIZE 消息 本例效果图:program Project1;usesWindows, Messages;{供 WM_SIZE 消息调用的自定义过程} procedure OnSize(h: HWND); varRect: TRect;pt: TPoint;buf: array[0..255] of Char; beginGetWindowRect(h, Rect); {获取窗口矩形}pt.X := Rect.Right - Rect.Left; {提取宽度}pt.Y := Rect.Bottom - Rect.Top; {提取高度}wvsprintf(buf, 宽度:%d, 高度:%d, @pt); ...
Windows 编程[10] - WM_LBUTTONDOWN、WM_LBUTTONUP 和 WM_MOUSEMOVE 消息 本例效果图:program Project1;usesWindows,Messages;{供 WM_LBUTTONDOWN 消息调用的自定义过程} procedure OnLButtonDown(h: HWND); varBrushHandle: HBRUSH;Rect: TRect; beginGetClientRect(h, Rect); {获取客户区矩形}BrushHandle := CreateSolidBrush(RGB(255,0,0)); {建立红色笔刷}FillRect(GetDC(h), Rect, BrushHandle); ...
Windows 编程[9] - WM_CLOSE 消息 本例效果图:program Project1;usesWindows, Messages;{供 WM_CLOSE 消息调用的自定义过程} procedure OnClose(h: HWND); beginif IDOK = MessageBox(h, 确认关闭吗?, 提示, MB_OKCANCEL) thenDestroyWindow(h); end;function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall; beginResult := 0;case msg ofWM_CLOSE : OnClose(wnd); {在收到 WM_CLOSE 消息...
Windows 编程[8] - WM_PAINT 消息 本例效果图:program Project1;usesWindows, Messages;{供 WM_PAINT 消息调用的自定义过程} procedure OnPaint(h: HWND); conststr = CodeGear Delphi 2007; varDC: HDC;ps: PAINTSTRUCT;Rect: TRect; beginMessageBeep(0);DC := BeginPaint(h, ps);GetClientRect(h, Rect);DrawText(DC, PChar(str), -1, Rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER);EndPaint(h, ps); end;function WndProc...
Windows 编程[7] - WM_CREATE 消息 本次我把生成窗口的过程做了简化, 以凸现新注入的代码; 本例效果图:program Project1;usesWindows, Messages;function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall; beginResult := 0;case msg ofWM_CREATE : MessageBeep(48); {在收到 WM_CREATE 消息时发出一个声音}WM_DESTROY: PostQuitMessage(0);elseResult := DefWindowProc(wnd, msg, wParam...
Windows 编程[6] - 学习窗体生成的过程六: 最终的代码! program Project1;usesWindows, Messages;{回调函数; 其中要处理的消息很多, 最好用 case 语句} function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall; beginResult := 0;case msg ofWM_DESTROY: PostQuitMessage(0); {收到 WM_DESTROY 后, 发送 WM_QUIT 消息指示退出}else{其他消息交 DefWindowProc 处理; DefWindowProc 会返回回...
Windows 编程[5] - 学习窗体生成的过程五 根据前面的介绍, 可以完成一个窗口的建立了:program Project1;usesWindows, Messages;{窗口回调函数, 必须声明在使用它的程序前面} function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall; beginResult := 0;if msg = WM_DESTROY then {当窗口销毁时}PostQuitMessage(0) {告诉 GetMessage: 退出吧!}elseResult := DefWindowProc(wnd, msg, wP...