Текущий архив: 2003.07.24;
Скачать: 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 вся ветка
Текущий архив: 2003.07.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
