unitmapxshapemultipagepropdialog.pas

此代码是关于mapgis的在

unit UnitMapXShapeMultiPagePropDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UnitMapXShapePropDialog, ComCtrls, StdCtrls, NumberEditUnit,
  YHBListBox, UnitMapXShapeBusinessFrame;

type
  TMapXShapeMultiPagePropDialog = class(TCustomMapXShapeDialog)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    ValueList: TYHBListBox;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    YEdit: TUpDownEditFloat;
    XEdit: TUpDownEditFloat;
    GroupBox2: TGroupBox;
    InsertPointBtn: TButton;
    DeletePointBtn: TButton;
    AddPointBtn: TButton;
    EditPointBtn: TButton;
    Button4: TButton;
    GroupBox4: TGroupBox;
  private
    { Private declarations }
    FBusinessFrame:TMapXShapeBusinessFrame;
  public
    { Public declarations }
    procedure DoBeforeClose;override;
    //根据维护商业数据的Frame类创建Frame对象//
    procedure CreateBusinessFrame(ABusinessFrameClass:TMapXShapeBusinessFrameClass);
  end;

var
  MapXShapeMultiPagePropDialog: TMapXShapeMultiPagePropDialog;

implementation

{$R *.dfm}

{ TMapXShapeMultiPagePropDialog }

procedure TMapXShapeMultiPagePropDialog.CreateBusinessFrame(
  ABusinessFrameClass: TMapXShapeBusinessFrameClass);
begin
  FBusinessFrame:=TMapXShapeBusinessFrame(TMapXShapeBusinessFrameClass.NewInstance);
  FBusinessFrame.Create(Self);
  FBusinessFrame.Parent:=GroupBox4;
  FBusinessFrame.Align:=alClient;
end;

procedure TMapXShapeMultiPagePropDialog.DoBeforeClose;
begin
  inherited;
  if FBusinessFrame<>nil then
    FBusinessFrame.Apply;
end;

end.