Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Имитация нажатия клавиш [D7, WinXP]

Бобров Илья © (2005-08-15 18:37:00)
Мастера, подскажите как послать в компонент имитированное нажатие комбинации клавиш ctrl+f?
За ранее благодарен!

Leonid Troyanovsky (2005-08-15 21:43:00) [1]

> злобная танька (15.08.05 20:17) [4]

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/e8115e50b604ca90

--
Regards, LVT.

TUser (2005-08-15 20:33:00) [2]
Если это компонент в твоей программе - то все это не нужно. Просты вызывай метод-обработчик.

злобная танька (2005-08-15 20:17:00) [3]
procedure TForm1.Button2Click(Sender: TObject);
var
ks: TKeyboardState;
begin
GetKeyboardState(ks);
ks[17] := 255;
SetKeyboardState(ks);
PostMessage(Button1.Handle, WM_KEYDOWN, 70, 0);
end;

работает, но как-то уж очень криво.. с клавой что-то случается нехорошее :) я вообще-то в WinAPI не очень соображаю.. сейчас подправлю может :)

Delphi_is_cool (2005-08-15 19:47:00) [4]
Можно попробовать так:

const WM_MYHOTKEY = WM_USER + 100; ... private procedure Hot_key(var Msg: TMessage); Message WM_MYHOTKEY; ... procedure TForm1.Hot_key(var Msg: TMessage); begin if (Msg.WParam = VK_CONTROL) and (Msg.LParam = $46) then ShowMessage('LOL'); end; procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Handle, WM_MYHOTKEY, VK_CONTROL, $46); // <ctrl> + <f> end;

Вот только не знаю это ли Вам нужно ...

злобная танька (2005-08-15 19:42:00) [5]
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (Key = 70) then
ShowMessage('he he!');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
k: word;
begin
k := 70;
Button1KeyDown(Self, k, [ssCtrl]);
end;

но это только если OnKeyDown есть у компонента. Если нету - придется черес PostMessage наверно или типа того!

Delphi_is_cool (2005-08-15 19:17:00) [6]
В какой компонент ? А вобще не проще ли сделать невидимую кнопку и кликнуть по ней ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »