Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];



Вниз

Можно ли имитировать нажатие какой либо клавиши? 

TSerg   (2001-12-25 15:25) [0]

Народ, у меня к вам такой вопрос: "Как сделать чтобы имитировалось нажатие какой-либо клавиши?"

---

Digitman   (2001-12-25 15:47) [1]

см. Win32 API help, topics : SendMessage(), WM_CHAR, WM_KEYDOWN, WM_KEYUP

---

Olgerd   (2001-12-25 15:49) [2]

http://delphi.mastak.ru/articles/sendkey.html

---

Alx2   (2001-12-25 15:57) [3]

Попробовал - работает... Но это верхушка айсберга.

Var m : TWMKey;
begin
m.CharCode:=byte("!");
m.Msg := wm_char;
Edit1.Perform(m.Msg,TMessage(m).WParam,TMessage(m).LParam);
end;


---

Мефодий   (2001-12-25 16:09) [4]

Perform(WM_LBUTTONDOWN, 0, 0);
Delay(сколько нужно);
Perform(WM_LBUTTONUP, 0, 0);

---

Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.72 MB
Время: 0.028 c