Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
ВнизТрабл с чужим ChecBox Найти похожие ветки
← →
vac_vic (2003-04-21 16:45) [0]Есть массив TPieCheckBox ПОЖАЛУЙСТА подскажите как добраться до процедуры SETFOCUS, не могу найти, как прнудитель перевести на него фокус ;может надо что-то изменить в исходнике TPieCheckBox.
А вот и кусочек исходника TPieCheckBox.
type
TPieDummyControl = class(TWinControl)
private
protected
public
property OnEnter;
property OnExit;
published
end;
TPieFocusStyle = (pfsNormal, pfsLine, pfsFill);
TPieTransparentControl = class(TCustomLabel)
private
{ Private-Deklarationen }
FBackground : TPicture;
FDummyControl : TPieDummyControl;
procedure BackGroundChange(Sender: TObject);
procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR;
procedure DummyControlEnter(Sender: TObject);
procedure DummyControlExit(Sender: TObject);
procedure DummyProc(VAR Message: TMessage); virtual;
protected
{ Protected-Deklarationen }
procedure Click; override;
procedure Loaded; override;
procedure WndProc(VAR Message: TMessage); override;
procedure SetName(const NewName: TComponentName); override;
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published-Deklarationen }
property Align;
property Alignment;
property Anchors;
property AutoSize;
property BiDiMode;
property Caption;
property Color;
property Constraints;
property DragCursor;
property DragKind;
end;
TPieCheckBox = class(TPieTransparentControl)
private
{ Private-Deklarationen }
FButtonEffect: TPieButtonEffect;
FChecked: Boolean;
FCheckBoxPosition: TPieCheckBoxPosition;
FCheckBoxSize: TPieCheckBoxSize;
FCheckBoxStyle: TPieCheckBoxStyle;
FCheckBoxTransparent: Boolean;
FFocus : Boolean;
FHookStyle: TPieHookStyle;
FHookColor: TColor;
procedure DummyProc(VAR Message: TMessage); override;
procedure SetButtonEffect(Value: TPieButtonEffect);
procedure SetChecked(Value: Boolean);
procedure SetCheckBoxPosition(Value: TPieCheckBoxPosition);
procedure SetCheckBoxSize(Value: TPieCheckBoxSize);
procedure SetCheckBoxStyle(Value: TPieCheckBoxStyle);
procedure SetCheckBoxTransparent(Value: Boolean);
procedure SetHookStyle(Value: TPieHookStyle);
procedure SetHookColor(Value: TColor);
protected
{ Protected-Deklarationen }
procedure Paint; override;
procedure Click; override;
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
published
{ Published-Deklarationen }
property ButtonEffect: TPieButtonEffect read FButtonEffect write SetButtonEffect default pbeNone;
property Checked: Boolean read FChecked write SetChecked default FALSE;
property CheckBoxPosition: TPieCheckBoxPosition read FCheckBoxPosition write SetCheckBoxPosition default pcbpLeftTop;
property CheckBoxSize: TPieCheckBoxSize read FCheckBoxSize write SetCheckBoxSize default pcbsNormal;
property CheckBoxStyle: TPieCheckBoxStyle read FCheckBoxStyle write SetCheckBoxStyle default pcbsSunken;
property CheckBoxTransparent: Boolean read FCheckBoxTransparent write SetCheckBoxTransparent default FALSE;
property HookStyle: TPieHookStyle read FHookStyle write SetHookStyle default phsHook;
property HookColor: TColor read FHookColor write SetHookColor default clBtnText;
property AutoSize;
property ShowFocused;
end;
e-mail: vac_vic@mail.ru
← →
Skier (2003-04-21 16:51) [1]
> как добраться до процедуры SETFOCUS, не могу найти
Взять да и вызвать, это метод TWinControl-а...
Ежели конечно у тебя с ним [фокусом] в
TPieTransparentControl.WndProc ничего не присходит...
← →
Anatoly Podgoretsky (2003-04-21 17:42) [2]Что то не наблюдается процедуры SETFOCUS у TPieCheckBox
← →
Anatoly Podgoretsky (2003-04-21 17:45) [3]Skier © (21.04.03 16:51)
Это наследник от TGraphicControl
← →
Skier (2003-04-21 17:49) [4]Ага. Точно. TPieTransparentControl = class(TCustomLabel) - моя ошибка...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c