| Class TKeyboard (unit ACKeyboard) |
TCustomPanel
TKeyboard
| Constructors |
constructor Create(AOwner: TComponent);TKeyboard
| Functions |
procedure BtnClick(Index: TKeyboardBtn);
destructor Destroy;
procedure Down(Index: TKeyboardBtn; Value: Boolean);
procedure Enable(Index: TKeyboardBtn; Value: Boolean);
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure GetChildren(Proc: TGetChildProc; Root: TComponent);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure Loaded;
procedure AdjustSize (var W: Integer; var H: Integer);
procedure BtnMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Click(Sender: TObject);
procedure InitButtons;
procedure InitCaptions;
procedure SetCaptions(Value: TStrings);
procedure SetNullValue(Value: String);
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property KeyCaptions : TStrings
property KeyIndex : TKeyboardBtn
property NullValue : String
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Value : String| Events |
event OnClick : EKeyClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
event OnStartDrag : | Variables |
Buttons : TKeyArray;
ButtonWidth : Integer;
FCaptions : TStrings;
FCapTmp : TStrings;
FFocusedButton : TKeyboardBtn;
FNullValue : String;
FOnKeyClick : EKeyClick;
FValue : String;
MinBtnSize : TPoint;| Constructors |
constructor Create(AOwner: TComponent);Value returned by the control
TKeyboard
| Functions |
procedure BtnClick(Index: TKeyboardBtn);
destructor Destroy;
procedure Down(Index: TKeyboardBtn; Value: Boolean);
procedure Enable(Index: TKeyboardBtn; Value: Boolean);
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure GetChildren(Proc: TGetChildProc; Root: TComponent);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure Loaded;
procedure AdjustSize (var W: Integer; var H: Integer);
procedure BtnMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Click(Sender: TObject);check for minimum size
procedure InitButtons;
procedure InitCaptions;
procedure SetCaptions(Value: TStrings);for Y := I+1 to (FCaptions.Count - 1) do old - see SetCaptions FCaptions.Strings[Y] := '';
procedure SetNullValue(Value: String);FCaptions.Assign(Value); old
procedure WMGetDlgCode(var Message: TWMGetDlgCode);Simulate Mouse Click
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property KeyCaptions : TStrings
property KeyIndex : TKeyboardBtn
property NullValue : String
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Value : String| Events |
event OnClick : EKeyClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
event OnStartDrag : | Variables |
Buttons : TKeyArray;
ButtonWidth : Integer;
FCaptions : TStrings;
FCapTmp : TStrings;
FFocusedButton : TKeyboardBtn;
FNullValue : String;
FOnKeyClick : EKeyClick;
FValue : String;
MinBtnSize : TPoint;