Программное нажатие комбинации клавиш...

← →
Smok_er (2003-01-19 17:19) [0]

Мастера!
Как программно нажать, к примеру, Ctrl + N?

← →
December24 (2003-01-19 20:19) [1]

keybrd_event

← →
Smok_er (2003-01-20 00:51) [2]

А конкретнее можно? Желательно с примером.

← →
Спрашивающий (2003-01-20 01:41) [3]

Пример из хелпа
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (shift = ([ssAlt, ssCtrl])) then form1.color := clPurple;
end;

← →
Opryshok © (2003-01-20 01:46) [4]

>
> Спрашивающий
- ваш ответ неверный -)

← →
Спрашивающий (2003-01-20 01:59) [5]

Opryshok ©
1.В чем мой ответ не верен?
2.С вышеуказанным кодом можно комбинировать как угодно. Ну например:
if (shift = [ssAlt]) and (Key=vk_F3) then form1.color := clPurple;

← →
Спрашивающий (2003-01-20 02:06) [6]

Просмотрел! вопрос был програмно! да действительно ответ не верен признаю.

← →
Opryshok © (2003-01-20 02:09) [7]

прикол в том, что не нужно ничего нажимать. нужно сгенерировать нажатие. Может я не вижу, но как кожно вышеуказанным кодом єто реализовать . . .

← →
Opryshok © (2003-01-20 02:16) [8]

>Smok_er попробуй использовать компоненту TActionList

← →
Smok_er (2003-01-20 05:43) [9]

к сожалению, это не подходит
Дело в том, что мне нужно подавить реакцию браузера на нажатие Ctrl+N и сделать так, чтобы окно открывалось в моей программе.
При использовании к примеру NewWindow("ляляля") происходит двойное появление окошек :(
Видать буфер IE несколько отличается от буфера самой программы.
Вот и хотел послать только одно сообщение о нажатой клавише.

Например:
keybd_event(VK_F4,0,KEYEVENTF_EXTENDEDKEY,0);
нажатие F4
Поройся в справке.

← →
smok_er (2003-01-20 17:20) [11]

Я нашел пример в нете, причем на борландском сайте (к сожалению сам пример дома, вечером только смогу сюда запостить), но не работает :(

← →
Stager (2003-01-20 20:54) [12]

У меня есть и работает. Выглядит как подключаемый юнит, в котором две рабочие процедуры: одна активирует окно, в которое требуется передать комбинацию клавиш, вторая - собственно передает. Причем последняя функция на входе получает строку, обрабатываемую как макрос, например:

SendKeys("abc123{left}{left}{left}def{end}456{left 6}ghi{end}789", True);

Исходник великоват для того, чтобы здесь запостить (395 строк), так что пишите на мыло - пришлю на обратный адрес.

Программное нажатие комбинации клавиш... Найти похожие ветки