Unit 'unumerickeyboard' Package
[Overview][Classes][Variables][Index] [#pl_pascalscada]

TpsHMIfrmNumericKeyBoard

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: unumerickeyboard.pas line 19

type TpsHMIfrmNumericKeyBoard = class(TForm)

  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;

  

  procedure FormCreate();

  

  procedure BtnPress();

  

  procedure Timer1Timer();

  

protected

  FShowMinus: Boolean;

  

  FShowDecimal: Boolean;

  

  FTarget: TWinControl;

  

  FFormOwner: TCustomForm;

  

  keyboard: TCrossKeyEvents;

  

  fStartedAt: TDateTime;

  

  procedure GotoBetterPosition;

  

  procedure ReturnFocusToTarget;

  

  procedure DoClose(); override;

  

public

  constructor Create(); overload;

  

  destructor Destroy; override;

  

  procedure ShowAlongsideOfTheTarget;

  

  procedure Notification(); override;

  

published

  property Target: TWinControl; [r]

  

end;

Inheritance

TpsHMIfrmNumericKeyBoard

  

|

TObject



CT Web help

CodeTyphon Studio