Как убрать с компонент штрихованную окаймовку?

[Hintman]

Ребята, подскажите, а как можно убрать с кнопок (TButton),
радиогруппы (TRadioGroup) и некоторых других компонент
штрихованную окаймовку, которая появляется при нажатии.

[Fainder]

в конце обработчика события передать фокус другому компоненту, например, форме.
Полезно также отключить tabstop

[itisiam]

Если я вас правильно понял, то надо свойство TabStop у Button установит в false, но тогда стрелки убиваются вместе с ним (не будут опознаваться при нажатии).
Так же можнопри каком либо событии (напр на нажатии самой этой кнопки) делать кнопку недоступной (Enabled:=false) - тогда умолчание на кнопке убивается и непоявляется на других кнопках; нажатия на стрелочки при этом обрабатываются.

[Hintman]

Ага, интересное решение, требующее смекалки.

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

И все же хотелось бы сделать это какими-то стандартными методами
или настройками свойств компонент. Неужели другого выхода нету?

[Fainder]

Сообщение от Hintman

И все же хотелось бы сделать это какими-то стандартными методами
или настройками свойств компонент. Неужели другого выхода нету?

Вряд ли. Здесь, как я понял речь идёт об отображении фокуса ввода. Это системная фича и скорей всего она либо вообще не убивается либо надо убивать только на кокретной машине (через реестр или ещё как - нибудь) и тогда это отразится на всех прогах, а какой клиент захочет, чтобы твоя прога меняла ему системный интефейс.
Ещё варитант: не юзать компоненты, которые могут получить фокус ввода. Я имею в виду tlabel вместо tbutton и т.д. Это придаст твоему проекту оригинальный вид

[OrdJONY]

С передачей фокуса не надо с мышей работать.

procedure TForm1.Button1Click(Sender: TObject);
begin
 ................... //Ваш код
  Form1.SetFocus;
end;

Но только выбор всеравно остаеться. МОжно передавать фокус какому нибудь объекту находящемуся за полем зрения Пользователя, а если форма можно растянгивать тогда при растягивании соответственно перемещать и объект

[itisiam]

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

Если сделать к примеру 2кнопки Play/Pause то логично что при нажатии на Play он становится недоступным (и открывается кнопка Puase.) А при MouseDown фокус передается кнопке и с ней же становится недоступным.
Багов не возникает , я проверял

[Hintman]

Да, еще одна интересная идея, действительно работает, спасибо

procedure TForm1.Button1MouseDown(...);
begin
Button1.Enabled:=false;
Button2.Enabled:=true;
end;

procedure TForm1.Button2MouseDown(...);
begin
Button1.Enabled:=true;
Button2.Enabled:=false;
end;

А в принципе, вместо TButton меня вполне устраивает TSpeedButton.

Остается открытым вопрос как поступить с TRadioGroup.
Вот что я попытался сделать:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
RadioGroup1.Enabled:=false;
//Form1.SetFocus;
RadioGroup1.Enabled:=true;

Строку Form1.SetFocus можно раскомментировать, но ничего не изменяется.


Остается 2 вопроса.

1-ый: если пользователь повторно выбирает тот же вариант,
событие OnClick (RadioGroup1Click) почему-то не возникает,
и поэтому окаймовка снова появляется.

2-ой: при OnMouseDown также появляется окаймовка,
которая исчезает только после события OnClick (RadioGroup1Click).
А хотелось бы, чтобы окаймовки вообще не было.
Но для TRadioGroup событие OnMouseDown не предусмотрено.
Что делать?