Текущий архив: 2004.04.04;
Скачать: CL | DM;
Вниз
OnMessage Найти похожие ветки
← →
Nevil © (2004-03-15 15:37) [0]OnMessage Help
← →
Nick Denry © (2004-03-15 15:46) [1]procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_INPUTLANGCHANGEREQUEST then
begin
{Делаешь что тебе надо при раскладке клавиатуры}
{И забудь слово ХАКЕР, хотябы пока...}
Handled := True;
end;
{ for all other messages, Handled remains False }
{ so that other message handlers can respond }
end;
← →
Defunct © (2004-03-15 15:48) [2]On|Message F1
← →
Юрий Зотов © (2004-03-15 17:15) [3]> OnMessage. Help.
Вопрос - и он же ответ. Уникальный случай.
← →
Anatoly Podgoretsky © (2004-03-15 17:17) [4]Он в чате сказал, что такой темы в справке нет.
← →
Юрий Зотов © (2004-03-15 17:20) [5]Наверное, со справкой Word"а перепутал. Там и правда нет.
Страницы: 1 вся ветка
Текущий архив: 2004.04.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
