unit ULDPFrmu;
{ Generated by MakeComp 1.02 from ULDPTYPE.PAS. Don't modify manually !!! }
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  IniObj, StdCtrls, ULObju, ULEdFrm;

type
  TULDPForm = class(TULEditForm)
    PropIDStrLbl: TLabel;
    PropIDStrEdit: TEdit;
    PropDescLbl: TLabel;
    PropDescEdit: TEdit;
    TypeDescLbl: TLabel;
    TypeDescEdit: TEdit;
    TypeIDLbl: TLabel;
    TypeIDEdit: TComboBox;
    PropFlagsLbl: TLabel;
    PropFlagsEdit: TEdit;
    ValueInPCLbl: TLabel;
    ValueInPCEdit: TEdit;
    ValueInDeviceLbl: TLabel;
    ValueInDeviceEdit: TEdit;
    UpdateIntervalLbl: TLabel;
    UpdateIntervalEdit: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    ULDPFormIni: TIniObject;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ULDPForm: TULDPForm;

implementation
{$R *.DFM}

procedure TULDPForm.FormCreate(Sender: TObject);
begin
end;

procedure TULDPForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Sender = OKBtn then begin
    CanClose := Obj.IsValidInput(Self);
  end;
end;

end.
