摘要： 本例效果图: 本例在资源文件中备有两组菜单, 程序实现运行时切换. 本例使用的资源文件(TestRes.rc): MyMenu1 MENUEX BEGIN MENUITEM "Open" ,101 MENUITEM "Edit" ,102 MENUITEM "Help" ,103 MENUITEM "Chinese" ,104 ,MFT_RIGHTJUST... 阅读全文

摘要： 本例效果图: 本例在窗体建立时, 动态添加了三个菜单; 并赋予它们自我删除的功能. 本例使用的资源文件(TestRes.rc): MyMenu1 MENUEX BEGIN POPUP "&File" BEGIN MENUITEM "E&xit" ,101 END END 本例代码文件: program Project1; {$R 'TestRes.res' '... 阅读全文

摘要： 本例效果图: 点击任一个菜单项, 都会发出一个 WM_COMMAND 消息, 消息的 wParam 参数的低两位就是标识菜单项的那个整数! 本例使用的资源文件(TestRes.rc): #define IDM_New 101 #define IDM_Open 102 #define IDM_Save 103 #define IDM_Exit 104 #define IDM_Cut... 阅读全文

摘要： 前面我们分别使用过 MENU 和 MENUEX 来指定菜单资源, 我发现用 MENU 不必注意大小写; 但 MENUEX 在使用参数时需要注意大小写! 另外, 指定相同的功能时, 它们使用的参数和格式也有很大的区别. 我想还是多了解 MENUEX 吧, 因为它的参数同时也是 Win32API 菜单函数们 需要的! MENUEX 有四个参数, 分别是: 菜单文本, 菜单标识(整数), 菜单格式(常... 阅读全文

摘要： 我们可以把上例中的资源文件修改成这样: MyMenu1 MENUEX BEGIN POPUP "&File" ,65535 BEGIN MENUITEM "&New" ,101 MENUITEM "&Open" ,102 MENUITEM "&Save" ,103 MENUITEM SEPARATOR MENUITEM ... 阅读全文

摘要： 假如我们用 TMainMenu 控件设计如下菜单: 该菜单在窗体源文件中是这样存储的: object MainMenu1: TMainMenu Left = 160 Top = 104 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New' end objec... 阅读全文

摘要： 本例效果图: program Project1; uses Windows, Messages; {供 WM_SIZE 消息调用的自定义过程} procedure OnSize(h: HWND); var Rect: TRect; pt: TPoint; buf: array[0..255] of Char; begin GetWindowRect(h, Rect); ... 阅读全文

摘要： 本例效果图: program Project1; uses Windows, Messages; {供 WM_LBUTTONDOWN 消息调用的自定义过程} procedure OnLButtonDown(h: HWND); var BrushHandle: HBRUSH; Rect: TRect; begin GetClientRect(h, Rect); ... 阅读全文

摘要： 本例效果图: program Project1; uses Windows, Messages; {供 WM_CLOSE 消息调用的自定义过程} procedure OnClose(h: HWND); begin if IDOK = MessageBox(h, '确认关闭吗?', '提示', MB_OKCANCEL) then DestroyWindow(h); end; ... 阅读全文

摘要： 本例效果图: program Project1; uses Windows, Messages; {供 WM_PAINT 消息调用的自定义过程} procedure OnPaint(h: HWND); const str = 'CodeGear Delphi 2007'; var DC: HDC; ps: PAINTSTRUCT; Rect: TRect; begin ... 阅读全文