proxyunit3.pas

设计模式delphi版给想学delphi的朋友一个很有价值的参考

unit ProxyUnit3;

interface
uses Windows, syncobjs, Sysutils, classes;
type

  TGraphic = class
  protected
    constructor Create;
  public
    destructor Destroy; virtual;

    procedure Draw(const _at: TPoint); virtual;
    procedure HandleMouse(_event: TEvent); virtual;

    function GetExtent(): TPoint; virtual;

    procedure Load(var _from: TStrings); virtual;
    procedure Save(var _to: TStrings); virtual;
  end;

  TImage = class(TGraphic)
  private
    //....
  public
    constructor Create(const imagefile: string); //眖郎