Как програмно снять выделение с кнопки

[misher]

Собственно вопрос в названии темы.
Сам я пробовал использовать

SendMessage(Button1.Handle, CM_FOCUSCHANGED, ... , ... );

вот только я не знаю какие параметры посылать.
[add]
Может как по другому можно?
Что подскажите?

[ArtGrek]

 SendMessage(Button1.Handle, BN_KILLFOCUS, 0, 0);

но ет работает только если она имеет стиль BS_NOTIFY
вот если кто нибудь подскажет как установить кнопке такои стиль, можеш воспользоваца етим

и вот можеш почитать все о кнопках
http://vla0760.narod.ru/help32/buttont_gen.html

[VadikV]

Можно еще просто фокус другому компоненту передать... Component.SetFocus

[ArtGrek]

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

Можно еще просто фокус другому компоненту передать... Component.SetFocus

нужно именно снять

[misher]

Если я с кнопки передам фокус на другую, она останется выделенной...

[misher]

Так что, никто не знает как снять выделение с кнопки?

[chertovich]

Может быть использовать кнопку без фокуса, например SpeedButton?

[misher]

Может быть использовать кнопку без фокуса, например SpeedButton?

Работает, спасибо

[Sibedir]

Немного поясню
1
TSpeedButton - не является потомком TWinControl => не может иметь фокус впринципе. По сути - он искуственно нарисованный элемент. Его рисует приложение, а не система.

2
Можно это сделать и с TWinControl.
На сколько я понял, кроме диактивации контрола (стяли жирную рамочку) нужно еще снять фокус (стяли пунктирную рамочку).
Короче как-то так

procedure KillFocus1 (AControl: TWinControl);
begin
  SendMessage (AControl.Handle, WM_KILLFOCUS, 0, 0);
  SendMessage (AControl.Handle, CM_FOCUSCHANGED, 0, 0);
  AControl.TabStop := False;
  AControl.ControlState := AControl.ControlState + [csFocusing]; // Он всю жизнь будет получать фокус, да так его и не получит :)
end;

или так

procedure KillFocus2 (AControl: TWinControl);
begin
  GetParentForm(AControl).ActiveControl := nil;
  AControl.TabStop := False;
  AControl.ControlState := AControl.ControlState + [csFocusing]
end;

Передовать фокус контролу всетаки можно (SetFocus), но визуально это никак не отображается.