Class TKeyboard (unit ACKeyboard)

Inherits from

TCustomPanel

TKeyboard

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.

procedure SetNullValue(Value: String);

FCaptions.

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;



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;