Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c