zwzgood的专栏

program Scrnsize;uses  windows;procedure MessageBoxPrintf(Caption, Format: PChar; const Args: array of const);var  OutBuff: array[0..100] of Char;  OutList: array of LongWord;  j: Integer;begin  Set

Windows常见窗口样式和控件风格                 王佰营 徐丽红一、窗口样式WS_POPUP        弹出式窗口(不能与WS_CHILDWINDOW样式同时使用)WS_CHILDWINDOW  子窗口(不能与WS_POPUP合用)WS_MINIMIZE     创建窗口拥有最小化按钮WS_MINIMIZEBOX  创建窗口拥有最小化按钮，须同时指定WS_SYSTEM样式W

program RandRect;//程序5-7 RandRectuses  Windows, Messages;var  cxClient, cyClient: LongWord;procedure DrawRectangle(hWindow: HWND);var  hWndc: HDC;  hBrush1: HBRUSH;  rc: TRect;begin  if (0=cxClient)

program Bezier;uses  Windows,  Messages;procedure DrawBezier(hdc1: HDC; apt: array of TPoint);begin    PolyBezier(hdc1, apt, 4); //贝塞尔曲线    // 绘制控制点与端点连线    MoveToEx(hdc1, apt[0].X, apt[0].Y, nil)

program Altwind;uses  Windows, Messages;function WndProc(hWindow: HWND; Msg, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+}  cxClient: Integer = 0;  cyClient: Integer = 0;  aptFigure: array

program Clover;//程序5-8 Cloveruses  Windows, Messages, Math;function WndProc(hWindow: HWND; Msg, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+}  hRgnClip: HRGN = 0;  cxClient: Integer = 0;  //

program WhatSize;//程序5-6 WhatSizezeuses  Windows,  Messages;procedure Show(hWindow: HWND; hWndc: HDC; xText, yText, iMapMode: integer;               szMapMode: PChar);var  szBuffer: array[0..59] of

program LineDemo;uses  Windows, Messages;function WndProc(hWindow: HWND; msg, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+}  cxClient: Integer = 0;  cyClient: Integer = 0;{$J-}var  ps: TPa

program Sinewave;uses  Windows,  Messages,  Math;const  NUM = 1000;function WndProc(hWindow: HWND; msg, wParam, lParam: LongInt): LRESULT; stdcall;const  TWOPI = (2 * 3.1415926);{$J+}  cxClient: i

     风格                                含义 CS_HREDRAW     如果窗口客户区宽度发生改变，重绘整个窗口 CS_VREDRAW     如果窗口客户区高度发生改变，重绘整个窗口 CS_DBLCLKS      能感受用户在窗口中的双击消息 CS_NOCLOSE     禁用系统菜单中的“关闭”命令 CS_OWNDC       为该窗口类的各窗口分