![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
||||
|
||||
|
Как передвигать курсора с клавиатуры
up, down, left, right |
|
#2
|
||||
|
||||
|
смотри раздел " Virtual key codes" мануала. +посмотри SendMessage()
|
|
#3
|
||||
|
||||
|
есть неплохая функция keybd_event
|
|
#4
|
||||
|
||||
|
Поточнее пожалуста
|
|
#5
|
||||
|
||||
|
Посмотри на Delphi World там много примеров, вот один оттуда (ссылку дать не могу т.к. у меня это локально
)Код:
{With keybd_event API}
procedure TForm1.Button1Click(Sender: TObject);
begin
{or you can also try this simple example to send any
amount of keystrokes at the same time. }
{Pressing the A Key and showing it in the Edit1.Text}
Edit1.SetFocus;
keybd_event(VK_SHIFT, 0, 0, 0);
keybd_event(Ord('A'), 0, 0, 0);
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
{Presses the Left Window Key and starts the Run}
keybd_event(VK_LWIN, 0, 0, 0);
keybd_event(Ord('R'), 0, 0, 0);
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end; |
|
#6
|
||||
|
||||
|
А кликнуть както можно?
|