Убрать фокус

← →
Mihey © (2004-02-28 13:46) [0]

Надо убрать фокус со стандартной кнопки TButton так, чтобы он вообще никогда не показывался. Любые средства применимы. Что делать?

← →
Anatoly Podgoretsky © (2004-02-28 13:52) [1]

Кнопка без фокуса называется TSpeedButton

← →
MBo © (2004-02-28 13:53) [2]

Чтобы не принимался фокус или чтобы не отрисовывалась его рамка?

← →
Mihey © (2004-02-28 14:03) [3]

2 Anatoly Podgoretsky:

Не подходит.

2 MBo:

Как угодно, лишь бы рамка не мозолила глаза.

← →
MBo © (2004-02-28 14:10) [4]

>Mihey
Почему не подходит?

Если непременно нужно оконную кнопку, но без рамки, нужно сделать свой компонент, и самое простое, наверно, - отрисовывать DrawFocusRect еще раз, чтобы штатный стерся.

← →
Igg (2004-02-28 15:14) [5]

Сделай свой компонент, только делай его от TCustomControl. а всю логику кнопки скопируй с делфешной, только сотри CreateSubClass, и переопредели процедуру Create

← →
Mihey © (2004-02-28 15:19) [6]

Да, наверное, придётся так и поступить.

← →
Gero © (2004-02-28 21:28) [7]

Можно убирать фокус с кнопки при OnEnter.

← →
Гы (2004-02-28 21:30) [8]

А может при OnFocused?

← →
Mihey © (2004-02-28 22:07) [9]

> Можно убирать фокус с кнопки при OnEnter.

Всё равно придётся переписывать класс, чтобы активировать эти свойства (т.к. Delphi 5), да и велика вероятносить мерцания.

> А может при OnFocused?

У TButton есть такое событие? Интересно.

> Mihey © (28.02.04 22:07) [9]
> Всё равно придётся переписывать класс

2-3 минуты

> да и велика вероятносить мерцания

Почему это?

← →
Гы (2004-02-28 22:20) [12]

>У TButton есть такое событие? Интересно.

Нет. нету. Ошипочка.

Рамку убираю применением TSpeedbutton или Label1.Setocus...

Убрать фокус Найти похожие ветки