设计模式、用Delphi实现---->Builder模式[3]

    procedure createform(aowner: tcomponent); override;

    procedure createspeedbutton; override;

    procedure createedit; override;

    procedure createedit; override;

  end;

type

  tblueformbuilder = class(tabstractformbuilder)

  private

    fnextleft, fnexttop: integer;

  public

    procedure createform(aowner: tcomponent); override;

    procedure createspeedbutton; override;

    procedure createedit; override;

    procedure createlabel; override;

  end;

有上面的接口中: