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

А как послать программно нажатие клавиши?   Найти похожие ветки 

← →
aaaa   (2003-07-14 10:57) [0]

Мне,например,необходимо послать нажатие ESC в активное окно моей же программы

---

← →
Darrin ©   (2003-07-14 11:13) [1]

procedure TForm1.Button1Click(Sender: TObject);
var key:char;
begin
key:=#27;
KeyPress(key);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then close;
end;

---

← →
Palladin ©   (2003-07-14 11:20) [2]

SendMessage(GetActiveWindow,WM_CHAR,27,27 shr 16);

---

← →
BillyJeans ©   (2003-07-14 13:23) [3]

PostMessage(Handle, WM_KEYDOWN, 27, 0);

---

Страницы: 1 вся ветка

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



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