Как установить "Focus Rectangle" для RadioButton?

[delphiboy]

Как программно принудительно установить на определенный RadioButton прямоугольник фокусировки (Focus Rectangle)?

DrawFocusRect не работает. ((

Появляется он только при нажатии на клавишу.

Неграмотное решение:
PostMessage(RadioButton1.Handle, WM_KEYDOWN, VK_DOWN, 0);
PostMessage(RadioButton1.Handle, WM_KEYDOWN, VK_UP, 0);

Вот скриншот:
www.taxiforum.ru/radiobutton.png

[OlegPrograming5]

Метод

RadioButton1.SetFocus;

подойдёт?

[delphiboy]

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

Метод

RadioButton1.SetFocus;

подойдёт?

это не работает.((

[delphiboy]

Почему то не могу залить скриншот. Постараюсь объяснить. При запуске формы такие вещи как:

ActiveControl
SetFocus

не работают.

Они работают, фокус устанавливается, но мне нужно чтобы еще и рисовался прямоугольник.

Вот скриншот:
www.taxiforum.ru/radiobutton.png

[alextrof94]

Засунь их в radiogroup и у него уже itemindex поставь (индексация с 0).

[evg_m]

F1

OnCreate event (TCustomForm)

When a form is being created and its Visible property is true, the following events occur in the order listed:

1. OnCreate
2. OnShow
3. OnActivate
4. OnPaint

1. здесь Setfocus не работает
2. а здесь сработает!

[delphiboy]

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

F1

1. здесь Setfocus не работает
2. а здесь сработает!

Пожалуйста привидите пример.

[delphiboy]

SendMessage( RadioButton1.Handle, BN_SETFOCUS, WPARAM(True), 0);

рамка не появляется.

[alextrof94]

В обработчике формы OnShow пишешь
RadioButton.setfocus.