Class TAMRadioButton (unit AMCbRb)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Click;


procedure DblClick;


procedure DoEnter;


procedure DoExit;


procedure KeyUp(var Key: Word; Shift: TShiftState);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


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


procedure Paint;

Begin of TAMRadioButton-implementation

procedure CmDialogChar(var Message: TCMDialogChar);


procedure CmEnabledChanged(var Message: TWmNoParams);


procedure CmFocusChanged(var Message: TCmFocusChanged);


procedure CmMouseEnter(var Message: TCmMouseEnter);


procedure CmMouseLeave(var Message: TCmMouseLeave);


procedure CmTextChanged(var Message: TWmNoParams);


procedure CmVisibleChanged(var Message: TWmNoParams);


procedure CnCommand(var Message: TWMCommand);


procedure SetAlignment(value: TLeftRight);


procedure SetChecked(value: boolean);


procedure SetHost(value: TAMCbRbHost);


procedure SetTab(value: TTab);


procedure WMMouseMove(var Message: TWMMouseMove);


Properties

property Alignment : TLeftRight


property Caption :


property Checked : boolean


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Host : TAMCbRbHost


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Tab : TTab


property TabOrder :


property TabStop :


property Visible :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseEnter : TMouseEnter


event OnMouseLeave : TMouseLeave


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FActive : boolean;


FAlignment : TLeftRight;


FBuffer : TBitmap;


FChecked : boolean;


FHost : TAMCbRbHost;


FMouseEnter : TMouseEnter;


FMouseLeave : TMouseLeave;


Focused : boolean;


FTab : TTab;


HasMouse : boolean;


MouseIsDown : boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Click;


procedure DblClick;


procedure DoEnter;


procedure DoExit;


procedure KeyUp(var Key: Word; Shift: TShiftState);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


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


procedure Paint;

Begin of TAMRadioButton-implementation


procedure CmDialogChar(var Message: TCMDialogChar);


procedure CmEnabledChanged(var Message: TWmNoParams);


procedure CmFocusChanged(var Message: TCmFocusChanged);


procedure CmMouseEnter(var Message: TCmMouseEnter);


procedure CmMouseLeave(var Message: TCmMouseLeave);


procedure CmTextChanged(var Message: TWmNoParams);


procedure CmVisibleChanged(var Message: TWmNoParams);


procedure CnCommand(var Message: TWMCommand);


procedure SetAlignment(value: TLeftRight);


procedure SetChecked(value: boolean);


procedure SetHost(value: TAMCbRbHost);


procedure SetTab(value: TTab);


procedure WMMouseMove(var Message: TWMMouseMove);


Properties


property Alignment : TLeftRight


property Caption :


property Checked : boolean


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Host : TAMCbRbHost


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Tab : TTab


property TabOrder :


property TabStop :


property Visible :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseEnter : TMouseEnter


event OnMouseLeave : TMouseLeave


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FActive : boolean;


FAlignment : TLeftRight;


FBuffer : TBitmap;


FChecked : boolean;


FHost : TAMCbRbHost;


FMouseEnter : TMouseEnter;


FMouseLeave : TMouseLeave;


Focused : boolean;


FTab : TTab;


HasMouse : boolean;


MouseIsDown : boolean;