Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Вниз

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

 
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), да и велика вероятносить мерцания.


 
Gero   (2004-02-28 22:12) [10]

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

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


 
Gero   (2004-02-28 22:18) [11]

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

2-3 минуты

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

Почему это?


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

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

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


 
Vemer   (2004-02-29 00:29) [13]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.011 c
14-43881
NeyroSpace
2004-02-20 20:32
2004.03.14
ПОМОГИТЕ! Домой не пускают! Не проходит проверка синтаксиса


3-43307
tomek
2004-02-11 20:50
2004.03.14
Interbase драйвер


14-43793
Layner
2004-02-17 11:22
2004.03.14
Скомпилируйте пустой проект на Delphi7, сколько байт


14-43873
ИМХО
2004-02-21 01:54
2004.03.14
Знатокам творчества Артура Конан Дойля


1-43652
Kair
2004-03-02 07:35
2004.03.14
Класс и объект





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский