| Class TCustomEditAndBtn (unit EdDial) |
TWinControl
=========================== TCustomEditAndBtn ============================
| Constructors |
constructor Create( AOwner: TComponent );| Functions |
destructor Destroy;
procedure SetName(const NewName: TComponentName);
procedure ButtonClick(Sender : TObject);
procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Change(Sender : TObject);
procedure Click(Sender : TObject);
procedure DblClick(Sender : TObject);
procedure DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure Enter(Sender : TObject);
procedure Exit(Sender : TObject);
procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure KeyPress(Sender: TObject; var Key: Char);
procedure KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure StartDrag(Sender: TObject; var DragObject: TDragObject);
procedure WMSize( var Message: TWMSize );
function GetAutoSelect : boolean;
function GetButtonCaption : String;
function GetButtonHint : String;
function GetButtonVisible : boolean;
function GetCharCase: TEditCharCase;
function GetColor: TColor;
function GetCtl3d: boolean;
function GetDragCursor: TCursor;
function GetDragMode: TDragMode;
function GetFont: TFont;
function GetGlyph: TBitmap;
function GetHideSelection: boolean;
function GetMaxLength: integer;
function GetNumGlyphs: TNumGlyphs;
function GetOEMConvert: boolean;
function GetParentColor: boolean;
function GetParentCtl3D: boolean;
function GetParentFont: boolean;
function GetParentShowHint: boolean;
function GetPasswordChar: char;
function GetReadOnly: boolean;
function GetShowHint: boolean;
function GetTabStop: boolean;
function GetText : String;
procedure SetAutoSelect(b: boolean);
procedure SetButtonCaption(s: String);
procedure SetButtonEnabled(b: boolean);
procedure SetButtonHint(s: String);
procedure SetButtonVisible(b : boolean);
procedure SetCharCase(c: TEditCharCase);
procedure SetColor(c: TColor);
procedure SetCtl3d(b: boolean);
procedure SetDragCursor(c: TCursor);
procedure SetDragMode(d: TDragMode);
procedure SetFont(f: TFont);
procedure SetGlyph(b: TBitmap);
procedure SetHideSelection(b: boolean);
procedure SetMaxLength(i: integer);
procedure SetNumGlyphs(n: TNumGlyphs);
procedure SetOEMConvert(b: boolean);
procedure SetParentColor(b: boolean);
procedure SetParentCtl3D(b: boolean);
procedure SetParentFont(b: boolean);
procedure SetParentShowHint(b: boolean);
procedure SetPasswordChar(c: char);
procedure SetReadOnly(b: boolean);
procedure SetShowHint(b: boolean);
procedure SetTabStop(b: boolean);
procedure SetText(s: String);| Properties |
property AutoSelect : boolean
property ButtonCaption : string
property ButtonEnabled : boolean
property ButtonGlyph : TBitmap
property ButtonHint : string
property ButtonNumGlyphs : TNumGlyphs
property ButtonShortCut : TShortCut
property ButtonVisible : boolean
property CharCase : TEditCharCase
property Color : TColor
property Ctl3d : boolean
property DragCursor : TCursor
property DragMode : TDragMode
property Enabled :
property Font : TFont
property HideSelection : boolean
property MaxLength : integer
property OEMConvert : boolean
property ParentColor : boolean
property ParentCtl3D : boolean
property ParentFont : boolean
property ParentShowHint : boolean
property PasswordChar : char
property PopupMenu :
property ReadOnly : boolean
property ShowHint : boolean
property TabOrder :
property TabStop : boolean
property Text : string
property Visible : | Events |
event OnButtonClick : TNotifyEvent
event OnButtonMouseDown : TMouseEvent
event OnButtonMouseMove : TMouseMoveEvent
event OnButtonMouseUp : TMouseEvent
event OnChange : TNotifyEvent
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnDragDrop : TDragDropEvent
event OnDragOver : TDragOverEvent
event OnEndDrag : TEndDragEvent
event OnEnter : TNotifyEvent
event OnExit : TNotifyEvent
event OnKeyDown : TKeyEvent
event OnKeyPress : TKeyPressEvent
event OnKeyUp : TKeyEvent
event OnMouseDown : TMouseEvent
event OnMouseMove : TMouseMoveEvent
event OnMouseUp : TMouseEvent
event OnStartDrag : TStartDragEvent| Variables |
FButtonEnabled : boolean;
FButtonHint : string;
FButtonShortCut : TShortCut;
FEdit : TEdit;
FOnButtonClick : TNotifyEvent;
FOnButtonMouseDown : TMouseEvent;
FOnButtonMouseMove : TMouseMoveEvent;
FOnButtonMouseUp : TMouseEvent;
FOnChange : TNotifyEvent;
FOnClick : TNotifyEvent;
FOnDblClick : TNotifyEvent;
FOnDragDrop : TDragDropEvent;
FOnDragOver : TDragOverEvent;
FOnEndDrag : TEndDragEvent;
FOnEnter : TNotifyEvent;
FOnExit : TNotifyEvent;
FOnKeyDown : TKeyEvent;
FOnKeyPress : TKeyPressEvent;
FOnKeyUp : TKeyEvent;
FOnMouseDown : TMouseEvent;
FOnMouseMove : TMouseMoveEvent;
FOnMouseUp : TMouseEvent;
FOnStartDrag : TStartDragEvent;
FSpeedButton : TSpeedButton;| Constructors |
constructor Create( AOwner: TComponent );Déclarations public
| Functions |
destructor Destroy;
procedure SetName(const NewName: TComponentName);
procedure ButtonClick(Sender : TObject);
procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Change(Sender : TObject);
procedure Click(Sender : TObject);
procedure DblClick(Sender : TObject);
procedure DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure Enter(Sender : TObject);
procedure Exit(Sender : TObject);
procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure KeyPress(Sender: TObject; var Key: Char);Shorcut
procedure KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure StartDrag(Sender: TObject; var DragObject: TDragObject);
procedure WMSize( var Message: TWMSize );
function GetAutoSelect : boolean;
function GetButtonCaption : String;=================================== Property ===============================
function GetButtonHint : String;
function GetButtonVisible : boolean;
function GetCharCase: TEditCharCase;
function GetColor: TColor;
function GetCtl3d: boolean;
function GetDragCursor: TCursor;
function GetDragMode: TDragMode;
function GetFont: TFont;
function GetGlyph: TBitmap;
function GetHideSelection: boolean;
function GetMaxLength: integer;
function GetNumGlyphs: TNumGlyphs;
function GetOEMConvert: boolean;
function GetParentColor: boolean;
function GetParentCtl3D: boolean;
function GetParentFont: boolean;
function GetParentShowHint: boolean;
function GetPasswordChar: char;
function GetReadOnly: boolean;
function GetShowHint: boolean;
function GetTabStop: boolean;
function GetText : String;
procedure SetAutoSelect(b: boolean);
procedure SetButtonCaption(s: String);
procedure SetButtonEnabled(b: boolean);
procedure SetButtonHint(s: String);
procedure SetButtonVisible(b : boolean);
procedure SetCharCase(c: TEditCharCase);
procedure SetColor(c: TColor);
procedure SetCtl3d(b: boolean);
procedure SetDragCursor(c: TCursor);
procedure SetDragMode(d: TDragMode);
procedure SetFont(f: TFont);
procedure SetGlyph(b: TBitmap);
procedure SetHideSelection(b: boolean);
procedure SetMaxLength(i: integer);
procedure SetNumGlyphs(n: TNumGlyphs);
procedure SetOEMConvert(b: boolean);
procedure SetParentColor(b: boolean);
procedure SetParentCtl3D(b: boolean);
procedure SetParentFont(b: boolean);
procedure SetParentShowHint(b: boolean);
procedure SetPasswordChar(c: char);
procedure SetReadOnly(b: boolean);
procedure SetShowHint(b: boolean);
procedure SetTabStop(b: boolean);
procedure SetText(s: String);| Properties |
property AutoSelect : booleanDéclarations protected
property ButtonCaption : string
property ButtonEnabled : boolean
property ButtonGlyph : TBitmap
property ButtonHint : string
property ButtonNumGlyphs : TNumGlyphs
property ButtonShortCut : TShortCut
property ButtonVisible : boolean
property CharCase : TEditCharCase
property Color : TColor
property Ctl3d : boolean
property DragCursor : TCursor
property DragMode : TDragMode
property Enabled :
property Font : TFont
property HideSelection : boolean
property MaxLength : integer
property OEMConvert : boolean
property ParentColor : boolean
property ParentCtl3D : boolean
property ParentFont : boolean
property ParentShowHint : boolean
property PasswordChar : char
property PopupMenu :
property ReadOnly : boolean
property ShowHint : boolean
property TabOrder :
property TabStop : boolean
property Text : string
property Visible : | Events |
event OnButtonClick : TNotifyEvent
event OnButtonMouseDown : TMouseEvent
event OnButtonMouseMove : TMouseMoveEvent
event OnButtonMouseUp : TMouseEvent
event OnChange : TNotifyEvent
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnDragDrop : TDragDropEvent
event OnDragOver : TDragOverEvent
event OnEndDrag : TEndDragEvent
event OnEnter : TNotifyEvent
event OnExit : TNotifyEvent
event OnKeyDown : TKeyEvent
event OnKeyPress : TKeyPressEvent
event OnKeyUp : TKeyEvent
event OnMouseDown : TMouseEvent
event OnMouseMove : TMouseMoveEvent
event OnMouseUp : TMouseEvent
event OnStartDrag : TStartDragEvent| Variables |
FButtonEnabled : boolean;Déclarations private
FButtonHint : string;
FButtonShortCut : TShortCut;
FEdit : TEdit;
FOnButtonClick : TNotifyEvent;
FOnButtonMouseDown : TMouseEvent;
FOnButtonMouseMove : TMouseMoveEvent;
FOnButtonMouseUp : TMouseEvent;
FOnChange : TNotifyEvent;
FOnClick : TNotifyEvent;
FOnDblClick : TNotifyEvent;
FOnDragDrop : TDragDropEvent;
FOnDragOver : TDragOverEvent;
FOnEndDrag : TEndDragEvent;
FOnEnter : TNotifyEvent;
FOnExit : TNotifyEvent;
FOnKeyDown : TKeyEvent;
FOnKeyPress : TKeyPressEvent;
FOnKeyUp : TKeyEvent;
FOnMouseDown : TMouseEvent;
FOnMouseMove : TMouseMoveEvent;
FOnMouseUp : TMouseEvent;
FOnStartDrag : TStartDragEvent;
FSpeedButton : TSpeedButton;