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.
Вопрос - и он же ответ. Уникальный случай.

Он в чате сказал, что такой темы в справке нет.

Наверное, со справкой Word"а перепутал. Там и правда нет.

OnMessage Найти похожие ветки