Class TSampleForm (unit EDITFRM)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);


function Execute: Boolean;

********************************* TSampleForm **********************************

function GetSampleName: String;


function GetValue: LongInt;


procedure SetSample(AValue: TSample);


procedure SetSampleName(Value: String);


procedure SetValue(Value: LongInt);


Properties

property Sample : TSample


property SampleName : String


property Value : LongInt


Events

Variables

Bevel1 : TBevel;


CancelBtn : TBitBtn;


Label1 : TLabel;


Label2 : TLabel;


OKBtn : TBitBtn;


SampleNameEdit : TEdit;


ValueEdit : TSpinEdit;


FSample : TSample;



Constructors


Functions


procedure FormCreate(Sender: TObject);


function Execute: Boolean;

********************************* TSampleForm **********************************


function GetSampleName: String;


function GetValue: LongInt;


procedure SetSample(AValue: TSample);


procedure SetSampleName(Value: String);


procedure SetValue(Value: LongInt);


Properties


property Sample : TSample


property SampleName : String


property Value : LongInt


Events


Variables


Bevel1 : TBevel;


CancelBtn : TBitBtn;


Label1 : TLabel;


Label2 : TLabel;


OKBtn : TBitBtn;


SampleNameEdit : TEdit;


ValueEdit : TSpinEdit;


FSample : TSample;