Компонент экранная клавиатура

[MikeSam]

Всем привет. У меня задание написать произвольную компоненту экранная клавиатура на delphi. Стоит delphi 7.
Вопрос первый, при создании компонента какой предок лучше выбрать? и палитру?
Я делал так:
На новой форме,создал кнопку button и вписал туда код

begin
 
   wnd := FindWindow('notepad', nil);
   if wnd <> 0 then
   begin
     wnd := FindWindowEx(wnd, 0, 'Edit', nil);
      s := 'Ы';
       SendMessage(wnd, WM_CHAR, Word(s), 0);
   end;

Печатает символ Ы. Все хорошо и понятно, только печатает в одном блокноте.Надо чтобы во всех окнах,будь то браузер,ворд. Явно нужно поменять что то здесь - wnd := FindWindow('notepad', nil); Только что?
И допустим как поменять расклад с русского на англ?

И еще как раскрать обычную кнопку button в др цвет?
И вообще все ли правильно делаю?)) Может кто то уже видел где то

[eduard93]

Попробуйте GetForegroundWindow.