摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文
posted @ 2008-05-20 18:27 万一 阅读(2821) 评论(0) 推荐(0)
摘要: GetRegionData( RGN: HRGN; {区域句柄} p2: DWORD; {区域数据缓冲区大小} p3: PRgnData {区域数据结构 TRgnData 的指针, 见下表} ): DWORD; {成功返回 1} //TRgnData 是 _RGNDATA 结构的重命名: _RGNDATA = record rdh: TRgnDataHeade... 阅读全文
posted @ 2008-05-20 16:18 万一 阅读(4900) 评论(10) 推荐(0)
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; CheckBox2: T... 阅读全文
posted @ 2008-05-20 11:20 万一 阅读(5536) 评论(5) 推荐(0)