Убираем фокус
От: SHKiN  
Дата: 24.09.05 01:23
Оценка:
Доброе время суток

Если кто обращал внимание, в виндах старше 2к при работе мышой отсутствует фокус на таких элементах, как Button, ListBox, CheckBox и т.д. Короче, на всех, на которых он может быть =)

В Delphi, однако, даже в 2005 версии подобного не наблюдается. Это конечно, мелочь, которую сложно заметить, однако меня эта мелочь довела почти до психоза

После долгих ковыряний в сырцах VCL и на MSDN фокус удалось победить!

TForm1.OnShow(Sender: TComponent);
begin
  SendMessage(Handle, WM_UPDATEUISTATE, MakeWParam(UIS_SET, UISF_NOFOCUS), 0);
end;


Все стандартные контролы выглядят как надо, исключение составляют те, где фокус злобные борланды рисуют принудительно DrawFocusRect() =)


Теперь, собственно говоря, вопрос: кто-нибудь вообще обращал внимание на этот злополучный фокус?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.