Проблема со сменой регистра

[nechto]

Уважаемые, не могли бы вы помочь с такой проблемой:

keybd_event(vk_Shift, 0, 0, 0);
PostMessage(MyEditHandle, WM_KEYUP, 72, 0);
keybd_event(vk_Shift, mapvirtualkey(vk_menu, 0), keyeventf_keyup, 0);
PostMessage(MyEditHandle, WM_KEYUP, 66, 0);
PostMessage(MyEditHandle, WM_KEYUP, 67, 0);
PostMessage(MyEditHandle, WM_KEYUP, 75, 0);

По идее должен получить первую букву в верхнем регистре, а остальные в нижнем. На практике получаю все буквы в нижнем регистре. В чем не прав и как победить.

[SERG1980]

А через uppercase или upperansicase нельзя?

[nechto]

А по-подробнее можно?

[mutabor]

http://www.delphisources.ru/pages/fa...rCase.php.html

[nechto]

Неее, так точно нельзя, мне каждый символ приходится посылать так ибо чужое окошко других событий не обрабатывает

[mutabor]

Попробуй пошли ему сначала Shift keydown, потом букву, а уже потом Shift keyup
Еще попробуй Shift так послать PostMessage(MyEditHandle, WM_KEYDOWN, 16, 0);

[nechto]

Пробовал - не работает.

[Stilet]

Ребяты все проще чем вы думаете:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Edit1.handle, WM_CHAR, ord('H'), 0);
SendMessage(Edit1.handle, WM_CHAR, ord('e'), 0);
SendMessage(Edit1.handle, WM_CHAR, ord('k'), 0);
SendMessage(Edit1.handle, WM_CHAR, ord('c'), 0);
end;

Этому коду даже кодовая страница по барабану, а не то что регистр букв )

[nechto]

Согласен, но то окно, которому я отправляю символы, SendMessage не обрабатывает. Поэтому и приходится изгаляться.

[Stilet]

SendMessage не обрабатывает

Как додумался?