Как отучить наследник TButton приимать фокус?

← →
Витаий Победа (2006-12-04 20:12) [0]

Чтобы по tab На него нельзя было перейти - есть свойство TabStop, а как отучить его брать фокус при клике?

← →
Eraser © (2006-12-04 20:35) [1]

использовать наследников TSpeedButton (TGraphicControl) - они по своей природе не могут получить фокус.

← →
Витаий Победа (2006-12-04 20:43) [2]

Расскажите лучше от чего зависит принимает контрол фокус или нет? вот например TPanel наследник TWinControl а фокус не принимает :(...
я тут исходники поукапал, кажется что когда вызывается кнопочная
CallWindowProc то она в внутри делает SetFocus для этого контрола :(
неужели никак нельзя отучить кнопку принимать фокус?TMyButton.WMSetFocus((7, 3212148, 0, 0)) TControl.WndProc((7, 3212148, 0, 0, 884, 49, 0, 0, 0, 0)) TWinControl.WndProc((7, 3212148, 0, 0, 884, 49, 0, 0, 0, 0)) TButtonControl.WndProc((7, 3212148, 0, 0, 884, 49, 0, 0, 0, 0)) TMyButton.WndProc((7, 3212148, 0, 0, 884, 49, 0, 0, 0, 0)) TWinControl.MainWndProc((7, 3212148, 0, 0, 884, 49, 0, 0, 0, 0)) StdWndProc(2556858,7,3212148,0) TWinControl.DefaultHandler((no value)) TControl.WMLButtonDown((513, 1, 38, 18, (38, 18), 0)) TControl.WndProc((513, 1, 1179686, 0, 1, 0, 38, 18, 0, 0)) TWinControl.WndProc((513, 1, 1179686, 0, 1, 0, 38, 18, 0, 0)) TButtonControl.WndProc((513, 1, 1179686, 0, 1, 0, 38, 18, 0, 0)) TMyButton.WndProc((513, 1, 1179686, 0, 1, 0, 38, 18, 0, 0)) TWinControl.MainWndProc((513, 1, 1179686, 0, 1, 0, 38, 18, 0, 0)) StdWndProc(2556858,513,1,1179686) TApplication.ProcessMessage((2556858, 513, 1, 1179686, 12579000, (625, 372))) TApplication.HandleMessage TApplication.Run Project2

← →
Витаий Победа (2006-12-04 20:47) [3]

> Eraser © (04.12.06 20:35) [1]
> использовать наследников TSpeedButton (TGraphicControl)
> - они по своей природе не могут получить фокус.

да тут такое дело, использую компоненты от Developer Express они в зависимости от установки стиля меняют свой вид (ала скиновые), так вот TCxButton (от TButton) у них есть а наследника TGraphicControl у них нет :( (или у меня нет...) они в своих редакторах каждый раз перерисовывают...

← →
trubin © (2006-12-04 21:24) [4]

Как вариант сразу по получению фокуса передавать его другому winControl-у

← →
trubin © (2006-12-04 21:26) [5]

Поправка:

> сразу по получению фокуса

передавать фокус в конце обработчика TMyButton.OnClick

← →
Витаий Победа (2006-12-05 06:24) [6]

Казалось бы, фокусы, бутоны это вин апи, ан нет, это основное :)))

← →
Loginov Dmitry © (2006-12-05 07:40) [7]

> вот например TPanel наследник TWinControl а фокус не принимает

Ну это дело поправимо:

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.SetFocus;
end;

:))

← →
GrayFace © (2006-12-05 12:41) [8]

Можно попробовать превратить это в некнопку - перекрыть CreateParams запомнить Params.WindowClass.lpfnWndProc, вызвать inherited и восстановить lpfnWndProc.

← →
Leonid Troyanovsky © (2006-12-05 18:03) [9]

> Витаий Победа (05.12.06 06:24) [6]

> Казалось бы, фокусы, бутоны это вин апи, ан нет, это основное
> :)))

Какое уж тут вин апи.
Просто, такой как "Извращения" еще не сделали.

--
Regards, LVT.

> Чтобы по tab На него нельзя было перейти - есть свойство
> TabStop, а как отучить его брать фокус при клике?

Я сильно извиняюсь, а зачем требуется такое поведение ?

← →
Barloggg (2006-12-06 11:50) [11]

да наверняка картинка на кнопке. а рамка поверх картинки не смотрится.

> Leonid Troyanovsky © (05.12.06 18:03) [9]
>
> > Витаий Победа (05.12.06 06:24) [6]
>
> > Казалось бы, фокусы, бутоны это вин апи, ан нет, это основное
>
> > :)))
>
>
> Какое уж тут вин апи.
> Просто, такой как "Извращения" еще не сделали.
>
> --
> Regards, LVT.

А жаль. Давно пора завести такой раздел.

> да наверняка картинка на кнопке. а рамка поверх картинки
> не смотрится.

А нахрена тогда в качестве предка брать TButton. Взять TCustomControl и сделать получение фокуса по своему. И отрисовку рамки фокуса тоже.

Как отучить наследник TButton приимать фокус? Найти похожие ветки