2008 年 4月 19 日随笔档案 - 万一

2008年4月19日

摘要：本例效果图: 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); ... 阅读全文

posted @ 2008-04-19 15:54 万一阅读(4700) 评论(29) 推荐(0)

Windows 编程[10] - WM_LBUTTONDOWN、WM_LBUTTONUP 和 WM_MOUSEMOVE 消息

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

posted @ 2008-04-19 11:34 万一阅读(9918) 评论(1) 推荐(0)