命令模式可以很轻松的实现撤销（Undo）功能。命令的接受者：1unituReceiveObject;23interface45type6TLight=class(TObject)7public8procedureOpen;9procedureOff;10end;1112implementation1...
{没有应用状态模式的代码}//工程文件program Project1;{$APPTYPE CONSOLE}uses uGumballMachine in 'uGumballMachine.pas';var aGumballMachine: TGumballMachine;begin aGumbal...
12{《HeadFirst设计模式》之命令模式}3{本单元中的类为命令的接收者}4{编译工具：Delphi7.0}5{联系方式：guzh-0417@163.com}67unituReceiveObject;89interface1011type12TLight=class(TObject)13pri...
//命令的接受者unit uReceiveObject;interfacetype TLight = class(TObject) public procedure Open; procedure Off; end; TGarageDoor = class(TObject) public proce...
TBevel组件该组件可以创建具有3D效果的斜角的盒子、方框或线。常用属性： shape：设置边界形状 style：设置分解的框线在屏幕上是凸起还是凹下。 shape属性 type TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLin...
分类：
Windows程序 时间：
2014-11-05 12:40:23
阅读次数：
3250
示例如下program Project1;uses Windows, Messages;{供 WM_LBUTTONDOWN 消息调用的自定义过程}procedure OnLButtonDown(h: HWND);var BrushHandle: HBRUSH; Rect: TRect;beg...
消息创建WM_CREATE:代码如下program Project1;uses Windows, Messages;{供 WM_PAINT 消息调用的自定义过程}procedure OnPaint(h: HWND);const str = '创建的窗口程序';var DC: HDC; ps:...
CnPack下重设。CnPack|IDE扩展设置|源代码高亮扩展|代码结构匹配高亮|允许高亮当前行背景的着色重设下，或者不勾就行了.delphi7设置Tools/EditorOptions/Color中设置，先选中右下示例中的当前行示例，左右的颜色里选就行了，BG为背景色，FG为字的颜色。
继续上节，我们还是用工程文件创建一个MDI窗口。代码如下：program MDIApp;uses Windows, Messages;var TheMessage:TMsg; FrameWindow,ClientWindow,ChildWindow:HWND;const IDCHILDWN...
本例在建立一个新的堆前后分别通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表，效果图：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For....
