Цитата:
Сообщение от usfire
а как сделать принудительно нижний региср...
|
А что ж вы упорно WM_KeyDown шлёте, она на пробеле и закисает, для всего набора символов лучше слать WM_CHAR, а чтоб был "нижний региср" можно добавить такую функцию
Код:
function loCs(ch: char): char;
begin
if (ch in ['A'..'Z', 'А'..'Я']) then
Result:= chr(ord(ch) + 32)
else Result:= ch;
end;
и вызывать в цикле
Код:
PostMessage(h1, WM_CHAR, Word(loCs(Text[i])), 0);