Class TpsHMIfrmNumericKeyBoard

Unit

unumerickeyboard

Declaration

type TpsHMIfrmNumericKeyBoard = class(TForm)

Description

TpsHMIfrmNumericKeyBoard

Hierarchy

• TForm
• TpsHMIfrmNumericKeyBoard

Overview

Fields

	Btn_1: TSpeedButton;
	Btn_2: TSpeedButton;
	Btn_3: TSpeedButton;
	Btn_4: TSpeedButton;
	Btn_5: TSpeedButton;
	Btn_6: TSpeedButton;
	Btn_7: TSpeedButton;
	Btn_8: TSpeedButton;
	Btn_9: TSpeedButton;
	Btn_0: TSpeedButton;
	Btn_Minus: TSpeedButton;
	Btn_DecSeparator: TSpeedButton;
	Btn_Del: TSpeedButton;
	Btn_Esc: TSpeedButton;
	Btn_Back: TSpeedButton;
	Btn_Ok: TSpeedButton;
	Btn_Left: TSpeedButton;
	Btn_Rigth: TSpeedButton;
	Timer1: TTimer;
	FShowMinus:Boolean;
	FShowDecimal:Boolean;
	FTarget:TWinControl;
	FFormOwner:TCustomForm;
	keyboard:TCrossKeyEvents;
	fStartedAt:TDateTime;

Methods

	procedure FormCreate(Sender: TObject);
	procedure BtnPress(Sender: TObject);
	procedure Timer1Timer(Sender: TObject);
	procedure GotoBetterPosition;
	procedure ReturnFocusToTarget;
	procedure DoClose(var CloseAction: TCloseAction); override;
	constructor Create(TheOwner: TComponent; Target:TWinControl; ShowMinus, ShowDecimal:Boolean); overload;
	destructor Destroy; override;
	procedure ShowAlongsideOfTheTarget;
	procedure Notification(AComponent: TComponent; Operation: TOperation); override;

Properties

property Target: TWinControl read FTarget;

Description

Fields

	Btn_1: TSpeedButton;

	Btn_2: TSpeedButton;

	Btn_3: TSpeedButton;

	Btn_4: TSpeedButton;

	Btn_5: TSpeedButton;

	Btn_6: TSpeedButton;

	Btn_7: TSpeedButton;

	Btn_8: TSpeedButton;

	Btn_9: TSpeedButton;

	Btn_0: TSpeedButton;

	Btn_Minus: TSpeedButton;

	Btn_DecSeparator: TSpeedButton;

	Btn_Del: TSpeedButton;

	Btn_Esc: TSpeedButton;

	Btn_Back: TSpeedButton;

	Btn_Ok: TSpeedButton;

	Btn_Left: TSpeedButton;

	Btn_Rigth: TSpeedButton;

	Timer1: TTimer;

	FShowMinus:Boolean;

	FShowDecimal:Boolean;

	FTarget:TWinControl;

	FFormOwner:TCustomForm;

	keyboard:TCrossKeyEvents;

	fStartedAt:TDateTime;

Methods

	procedure FormCreate(Sender: TObject);

	procedure BtnPress(Sender: TObject);

	procedure Timer1Timer(Sender: TObject);

	procedure GotoBetterPosition;

	procedure ReturnFocusToTarget;

	procedure DoClose(var CloseAction: TCloseAction); override;

	constructor Create(TheOwner: TComponent; Target:TWinControl; ShowMinus, ShowDecimal:Boolean); overload;

	destructor Destroy; override;

	procedure ShowAlongsideOfTheTarget;

	procedure Notification(AComponent: TComponent; Operation: TOperation); override;

Properties

	property Target: TWinControl read FTarget;

---

Generated by PasDoc 0.14.0.