不使用标题栏拖动窗体
摘要: 方法一、二、三效果图:方法四效果图:方法一:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject;...
阅读全文
posted @
2008-04-30 22:26 万一 阅读(3500) |
评论 (6) 编辑
Windows 编程[2] - 学习窗体生成的过程二
摘要: 曾经做过一个最简单的 Windows 程序: 新建一个 Delphi 控制台程序, 贴入以下代码, 即可运行.代码分析: 系统函数 MessageBox 即可生成一个消息窗口; 因为这个函数来自 Windows 单元, 需要 uses Windows;同样的道理, 我们也可以使用 ShellAPI 单元下的 ShellAbout 调用一个关于窗口:但这都是 Windows 固定模式和固定功能的窗口...
阅读全文
posted @
2008-04-15 14:22 万一 阅读(3083) |
评论 (2) 编辑