本文整理自网络，侵删。
曾经做过一个最简单的 Windows 程序: 新建一个 Delphi 控制台程序, 贴入以下代码, 即可运行.program Project1;uses Windows;begin MessageBox(0,PChar('Ok!'),PChar('Title'),0);end.
代码分析: 系统函数 MessageBox 即可生成一个消息窗口; 因为这个函数来自 Windows 单元, 需要 uses Windows;
同样的道理, 我们也可以使用 ShellAPI 单元下的 ShellAbout 调用一个关于窗口:program Project1;uses ShellAPI;begin ShellAbout(0, '万一的 Delphi 博客', 'Copyright: 万一', 0);end.
但这都是 Windows 固定模式和固定功能的窗口, 如果创建一个普通的窗口呢?
暂且抛弃使用 Forms.TForm 类的想法, 让一切从头开始, 也就是从 Windows API 开始.
现在我们能够想到的代码应该是这样:program Project1;begin //创建窗口 CreateWindow //显示窗口 ShowWindowend.
认识 ShowWindow 函数:ShowWindow( hWnd: HWND; {要显示的窗口的句柄} nCmdShow: Integer {选项, 参加下表}): BOOL;
//uCmdShow 参数可选值:SW_HIDE = 0; {隐藏, 并且任务栏也没有最小化图标}SW_SHOWNORMAL = 1; {用最近的大小和位置显示, 激活}SW_NORMAL = 1; {同 SW_SHOWNORMAL}SW_SHOWMINIMIZED = 2; {最小化, 激活}SW_SHOWMAXIMIZED = 3; {最大化, 激活}SW_MAXIMIZE = 3; {同 SW_SHOWMAXIMIZED}SW_SHOWNOACTIVATE = 4; {用最近的大小和位置显示, 不激活}SW_SHOW = 5; {同 SW_SHOWNORMAL}SW_MINIMIZE = 6; {最小化, 不激活}SW_SHOWMINNOACTIVE = 7; {同 SW_MINIMIZE}SW_SHOWNA = 8; {同 SW_SHOWNOACTIVATE}SW_RESTORE = 9; {同 SW_SHOWNORMAL}SW_SHOWDEFAULT = 10; {同 SW_SHOWNORMAL}SW_MAX = 10; {同 SW_SHOWNORMAL}
认识 CreateWindow 函数:CreateWindow( lpClassName: PChar; {窗口类的名字} lpWindowName: PChar; {窗口标题} dwStyle: DWORD; {窗口样式, 参加下表} X,Y: Integer; {位置; 默认的X,Y可以指定为: Integer(CW_USEDEFAULT)} nWidth,nHeight: Integer;{大小; 默认的宽度、高度可以指定为: Integer(CW_USEDEFAULT)}} hWndParent: HWND; {父窗口句柄} hMenu: HMENU; {主菜单句柄} hInstance: HINST; {模块实例句柄, 也就是当前 exe 的句柄} lpParam: Pointer {附加参数, 创建多文档界面时才用到, 一般设为 nil}): HWND; {返回所创建的窗口的句柄}
//dwStyle 窗口样式参数可选值:WS_OVERLAPPED = 0; {重叠式窗口, 应带标题栏和边框}WS_POPUP = DWORD($80000000); {弹出式窗口, 不能与 WS_CHILD 一起使用}WS_CHILD = $40000000; {子窗口, 不能与 WS_POPUP 一起使用}WS_MINIMIZE = $20000000; {最小化窗口}WS_VISIBLE = $10000000; {初始时可见}WS_DISABLED = $8000000; {禁止输入}WS_CLIPSIBLINGS = $4000000; {裁剪子窗口, 也就是子窗口重绘不影响重叠的其他子窗口, 应与 WS_CHILD 一起使用}WS_CLIPCHILDREN = $2000000; {在父窗口中绘图时绕开子窗口区域, 创建父窗口是使用}WS_MAXIMIZE = $1000000; {最大化窗口}WS_CAPTION = $C00000; {有标题栏}WS_BORDER = $800000; {有细线边框}WS_DLGFRAME = $400000; {对话框窗口}WS_VSCROLL = $200000; {有垂直滚动条}WS_HSCROLL = $100000; {有水平滚动条}WS_SYSMENU = $80000; {带系统标题栏, 须同时指定 WS_CAPTION}WS_THICKFRAME = $40000; {带宽边框, 宽边框用于改变窗口大小}WS_GROUP = $20000; {能用方向键转移焦点}WS_TABSTOP = $10000; {能用 TAB 转移焦点}WS_MINIMIZEBOX = $20000; {有最小化按钮}WS_MAXIMIZEBOX = $10000; {有最大化按钮}WS_TILED = WS_OVERLAPPED;WS_ICONIC = WS_MINIMIZE;WS_SIZEBOX = WS_THICKFRAME;WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED or WS_CAPTION or WS_SYSMENU or WS_THICKFRAME or WS_MINIMIZEBOX or WS_MAXIMIZEBOX);WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW;WS_POPUPWINDOW = (WS_POPUP or WS_BORDER or WS_SYSMENU);WS_CHILDWINDOW = (WS_CHILD);
//另外还有一些扩展样式:WS_EX_DLGMODALFRAME = 1; {指定双边界窗口; 藉此指定 WS_CAPTION 创建标题栏}WS_EX_NOPARENTNOTIFY = 4; {在窗口创建或取消时不向父窗口发送 WM_PARENTNOTIFY 消息}WS_EX_TOPMOST = 8; {在所有非最顶层窗口的上面}WS_EX_ACCEPTFILES = $10; {可接受拖放文件}WS_EX_TRANSPARENT = $20; {透明样式, 在同属窗口已重画时该窗口才可重画}WS_EX_MDICHILD = $40; {创建一个 MDI 子窗口}WS_EX_TOOLWINDOW = $80; {工具窗口}WS_EX_WINDOWEDGE = $100; {带立体的边框}WS_EX_CLIENTEDGE = $200; {带阴影的边界}WS_EX_CONTEXTHELP = $400; {标题包含一个问号标志, 不能与 WS_MAXIMIZEBOX 和 WS_MINIMIZEBOX 同时使用}WS_EX_RIGHT = $1000; {窗口具有右对齐属性}WS_EX_LEFT = 0; {窗口具有左对齐属性, WS_EX_LEFT 是缺省设置}WS_EX_RTLREADING = $2000; {窗口文本从右到左}WS_EX_LTRREADING = 0; {窗口文本从左到右, WS_EX_LTRREADING 是缺省设置}WS_EX_LEFTSCROLLBAR = $4000; {垂直滚动条在左边界, 只用于特殊语言环境}WS_EX_RIGHTSCROLLBAR = 0; {垂直滚动条在右边界, WS_EX_RIGHTSCROLLBAR 是缺省设置}WS_EX_CONTROLPARENT = $10000; {允许用户使用 Tab 键在窗口的子窗口间搜索}WS_EX_STATICEDGE = $20000; {窗口不可用时创建一个三维边界}WS_EX_APPWINDOW = $40000; {当窗口可见时, 将一个顶层窗口放置到任务条上}WS_EX_OVERLAPPEDWINDOW = (WS_EX_WINDOWEDGE or WS_EX_CLIENTEDGE); {立体边框并带阴影}WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE or WS_EX_TOOLWINDOW or WS_EX_TOPMOST); {立体边框、工具条窗口样式、在顶层}WS_EX_LAYERED = $00080000; {分层或透明窗口, 该样式可使用混合特效}WS_EX_NOINHERITLAYOUT = $00100000; {子窗口不继承父窗口的布局}WS_EX_LAYOUTRTL = $00400000; {从右到左的布局}WS_EX_COMPOSITED = $02000000; {用双缓冲从下到上绘制窗口的所有子孙}WS_EX_NOACTIVATE = $08000000; {处于顶层但不激活}
分析:
首先要用 CreateWindow 创建窗口, 才能用 ShowWindow 显示窗口; 因为 ShowWindow 需要 CreateWindow 返回的句柄.
在 CreateWindow 的参数中, 位置与大小与窗口标题无须多说;父窗口与菜单, 暂时都不需要, 先可置为 0;程序实例的句柄, Delphi 已经为我们准备好了: HInstance; (参见原来的说明)窗口样式在前面的例子中我们使用了: WS_OVERLAPPEDWINDOW, 它代表几种特点的组合, 表示了常规窗口.
CreateWindow 还有一个重要参数(第一个参数 lpClassName): 窗口类的名字.Windows 要求我们要登记并注册一个窗口类以后, 才可以用 CreateWindow 建立窗口!
另附控件样式参考:ES_LEFT = 0; {左对齐}ES_CENTER = 1; {居中}ES_RIGHT = 2; {右对齐}ES_MULTILINE = 4; {多行}ES_UPPERCASE = 8; {全大写}ES_LOWERCASE = $10; {全小写}ES_PASSWORD = $20; {掩码字符}ES_AUTOVSCROLL = $40; {自动垂直滚动}ES_AUTOHSCROLL = $80; {自动水平滚动}ES_NOHIDESEL = $100; {始终显示选中部分}ES_OEMCONVERT = $400; {允许 ANSI 和 OEM 互相转换}ES_READONLY = $800; {只读}ES_WANTRETURN = $1000; {可接受回车换行}ES_NUMBER = $2000; {只接受数字输入} 相关阅读 >>
Delphi实现获取文件及文件夹大小(支持超过2g的大文件)
Delphi combobox1dropdown 生成动态下拉列表
更多相关阅读请进入《Delphi》频道 >>
