Class TEMFForm (unit unit1)

Inherits from

TForm

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure BitBtn1Click(Sender: TObject);

can't have both Standard Key Handling and DOS Emulation

procedure BitBtn2Click(Sender: TObject);


procedure SetDOSEmulation(DoDOSEmulation: Boolean);

with message do

procedure SetStandardKeyHandling(DoStandardKeyHandling: Boolean);

can't have both DOS Emulation and Standard Key Handling

procedure CMDialogKey(var Message: TCMDialogKey);


Properties

property DOSEmulation : Boolean


property StandardKeyHandling : Boolean


Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


Edit4 : TEdit;


FDOSEmulation : Boolean;


FStandardKeyHandling : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure BitBtn1Click(Sender: TObject);

can't have both Standard Key Handling and DOS Emulation


procedure BitBtn2Click(Sender: TObject);


procedure SetDOSEmulation(DoDOSEmulation: Boolean);

with message do


procedure SetStandardKeyHandling(DoStandardKeyHandling: Boolean);

can't have both DOS Emulation and Standard Key Handling


procedure CMDialogKey(var Message: TCMDialogKey);


Properties


property DOSEmulation : Boolean


property StandardKeyHandling : Boolean


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


Edit4 : TEdit;


FDOSEmulation : Boolean;


FStandardKeyHandling : Boolean;