Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
ВнизПрограммное нажатие комбинации клавиш... Найти похожие ветки
← →
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 несколько отличается от буфера самой программы.
Вот и хотел послать только одно сообщение о нажатой клавише.
← →
-=Sergeante=- (2003-01-20 13:59) [10]Например:
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 строк), так что пишите на мыло - пришлю на обратный адрес.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c