| Class TComponentButton (unit StdComps) |
TWinControl
TComponentButton
| Constructors |
constructor Create(AOwner: TComponent; HintStr: String);| Functions |
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure Loaded;
procedure AdjustSize (var W: Integer; var H: Integer);
procedure BtnClick(Sender: TObject);
procedure BtnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
function GetCaption: string;
function GetGlyph: TBitmap;
function GetNumGlyphs: Integer;
function GetTimeBtnState: TTimeBtnState;
procedure SetAllowTimer(Value: Boolean);
procedure SetCaption(Value: string);
procedure SetGlyph(Value: TBitmap);
procedure SetNumGlyphs(Value: Integer);
procedure SetTimeBtnState(Value: TTimeBtnState);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property AllowTimer : Boolean
property BtnCaption : String
property FocusControl : TWinControl
property Glyph : TBitmap
property NumGlyphs : Integer
property TimeBtnState : TTimeBtnState| Events |
event OnClick : TNotifyEvent
event OnMouseDown : TMouseEvent| Variables |
FAllowTimer : Boolean;
FButton : TTimerSpeedButton;
FFocusControl : TWinControl;
FOnClick : TNotifyEvent;
FOnMouseDown : TMouseEvent;
FTimeBtnState : TTimeBtnState;| Constructors |
constructor Create(AOwner: TComponent; HintStr: String);******************} {* TComponentButton *} {
| Functions |
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);if W < 15 then W := 15;
procedure Loaded;
procedure AdjustSize (var W: Integer; var H: Integer);
procedure BtnClick(Sender: TObject);
procedure BtnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
function GetCaption: string;
function GetGlyph: TBitmap;
function GetNumGlyphs: Integer;
function GetTimeBtnState: TTimeBtnState;
procedure SetAllowTimer(Value: Boolean);
procedure SetCaption(Value: string);
procedure SetGlyph(Value: TBitmap);
procedure SetNumGlyphs(Value: Integer);
procedure SetTimeBtnState(Value: TTimeBtnState);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);check for minimum size
procedure WMSize(var Message: TWMSize);| Properties |
property AllowTimer : Boolean
property BtnCaption : String
property FocusControl : TWinControl
property Glyph : TBitmap
property NumGlyphs : Integer
property TimeBtnState : TTimeBtnState| Events |
event OnClick : TNotifyEvent
event OnMouseDown : TMouseEvent| Variables |
FAllowTimer : Boolean;
FButton : TTimerSpeedButton;
FFocusControl : TWinControl;
FOnClick : TNotifyEvent;
FOnMouseDown : TMouseEvent;
FTimeBtnState : TTimeBtnState;The name of the button in the resource