fform: tform;
procedure builderformclose(sender: tobject; var action: tcloseaction);
protected
function getform: tform; virtual;
public
procedure createform(aowner: tcomponent); virtual;
procedure createspeedbutton; virtual; abstract;
procedure createedit; virtual; abstract;
procedure createlabel; virtual; abstract;
property form: tform read getform;
end;
type
tredformbuilder = class(tabstractformbuilder)
private
fnextleft, fnexttop: integer;
public
