| Class TSampleForm (unit EDITFRM) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
function Execute: Boolean;
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;