Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.96/23: Рейтинг темы: голосов - 23, средняя оценка - 4.96
megostudent
4 / 4 / 2
Регистрация: 15.02.2011
Сообщений: 78
1

Программное нажатие клавиши на клавиатуре

23.09.2011, 17:26. Просмотров 4281. Ответов 42
Метки нет (Все метки)

подскажите как программно нажать клавишу на клавиатуре, например "1"???
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.09.2011, 17:26
Ответы с готовыми решениями:

Перемещение обьекта по нажатию клавиши на клавиатуре
Допустим у меня есть компонент Image на форме, мне нужно чтобы по нажатию...

Программное нажатие mouse1
Можно ли как-то программно нажать mouse1? P.s. Mouse_Event не подходит!

Программное нажатие пробела
Как сделать,чтобы при нажатии на определенную кнопку программа делала несколько...

Как запретить нажатие определенных клавиш на клавиатуре в зависимости от нажатых до этого?
На форме расположено поле Edit и туда вводится некий текст. но при нажатии...

Программное нажатие кнопки backspace
Как программно нажать кнопку backspace?

42
megostudent
4 / 4 / 2
Регистрация: 15.02.2011
Сообщений: 78
26.09.2011, 23:24  [ТС] 41
блин зачёт!) даже мой компьютер закрыло)
ток сделал так
Delphi
1
2
3
4
5
6
7
var
  handle: HWND;
begin
  handle := FindWindow(nil, 'Мой компьютер');
  PostMessage(handle,WM_KEYDOWN,VK_F1,1);  //Нажимает на кнопку NumPad3
PostMessage(handle,WM_KEYUP,VK_F1,1);
end;
и ничего не сделалось(
0
deathNC
1892 / 1005 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
26.09.2011, 23:32 42
Блин. Ща, найду исходники перебора всех контролов. Мож, чего и получится
0
deathNC
1892 / 1005 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
27.09.2011, 00:33 43
Вот как у меня это получилось:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall;
begin
  PostMessage(Wd, WM_KeyDown, byte('F'), 1);
  Result := true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  hWindow: HWND;
begin
  hWindow := Self.Handle;
  // перебираем все дочерние формы
  EnumChildWindows(hWindow, @EnumProc, 0);
end;
Тут у меня на форме был TEdit, и в нём появились буковки...
Функция EnumChildWindows перебирает все дочерние контролы...
1
Вложения
Тип файла: rar Post Message.rar (5.7 Кб, 45 просмотров)
27.09.2011, 00:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2011, 00:33

Программное нажатие клавиш мыши
Уже 3 день думаю как сотворить сие)) Хочу в игре нажимать программно мышь через...

Перемещение картинки по форме при нажатии на клавиши стрелок на клавиатуре
Хочу, чтобы при нажатии на клавиши стрелок на клавиатуре картинка двигалась....

Нажатие клавиши
Здравствуйте уважаемые мною проффессионалы программирования! 8-) Мне нужны ваши...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
43
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru