unit1.~pas

来自「Del_att Management」· ~PAS 代码 · 共 54 行

unit unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls,OleCtrls,ATTSTRUEDITLib_TLB,  EDITVIEWLib_TLB,GISATTEDITLib_TLB,
  MAPGISBASCOM1LIB_TLB, MAPGISDSPCOMLib_TLB,Main,ExtCtrls;
type
  TAttstruDlg = class(TForm)
    AttStruEdit: TAttStruEdit;
    ButtonOK: TButton;
    ButtonExit: TButton;
    procedure BrowOrEditAttStru(stru:IRecord_Head;Editable:Integer);
    procedure ButtonExitClick(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
  private
    { Private declarations }
  public
  ai:Iworkarea;
  aiType:Integer;
  isOK:integer;
  AttstruDlg: TAttstruDlg;
    { Public declarations }
  end;

implementation
var
isok:integer;
{$R *.dfm}

//浏览编辑属性结构
procedure TAttStruDlg.BrowOrEditAttStru(stru:IRecord_Head;Editable:Integer);
begin
    AttStruEdit.AttachStru(stru);
    AttStruEdit.EditEnable := Editable;
    AttStruEdit.DispExtAttStru:=Editable;
end;


procedure TAttstruDlg.ButtonExitClick(Sender: TObject);
begin
  isok:=0;
  self.Close;
end;

procedure TAttstruDlg.ButtonOKClick(Sender: TObject);
begin
  isok:=1;
  self.Close;
end;

end.