Property CrossType: TCrossType read FCrossType write SetCrossType default ctGDI Property CheckChar: Char read FCheckChar write SetCheckChar default DEFAULT_CHECK_CHAR Property Padding: integer read FPadding write SetPadding default DEFAULT_PADDING Property Checked: boolean read FChecked write SetChecked default false Property Caption: TCaption read FCaption write SetCaption Property CheckFont: TFont read FCheckFont write FCheckFont Procedure KeyUp(var Key: Word Shift: TShiftState) override Ĭonstructor Create(AOwner: TComponent) override Procedure KeyDown(var Key: Word Shift: TShiftState) override Procedure WndProc(var Message: TMessage) override Procedure MouseUp(Button: TMouseButton Shift: TShiftState X: Integer Procedure MouseDown(Button: TMouseButton Shift: TShiftState X: Integer Procedure MouseMove(Shift: TShiftState X: Integer Y: Integer) override Procedure SetCrossType(CrossType: TCrossType) Procedure SetCheckChar(const CheckChar: char) Procedure CheckFontChange(Sender: TObject) Procedure SetCaption(const Caption: TCaption) THoverState = (hsNormal = 1, hsHover = 2, hsPushed = 3) SysUtils, Windows, Messages, Graphics, Classes, Controls, UxTheme You could do something like this: unit Checkbo圎x
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |