Цитата:
|
Сообщение от Alegun
Клики лишние, достаточно KeyDown и KeyUp
Код:
procedure TForm1.tmr1Timer(Sender: TObject);
begin
keybd_event(VK_SPACE,0,KEYEVENTF_EXTENDEDKEY,0);// Жмём
keybd_event(VK_SPACE,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //Отпускаем
end;
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 65 then
begin
tmr1.Enabled:= True;
mmo1.Lines.Add('on');
end;
end;
procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 65 then
begin
tmr1.Enabled:= False;
mmo1.Lines.Add('off');
end;
end; |
Спасибо, я сглупил то что поставил в процедуре таймера enable:=false.
Сейчас убрал, включил программу, нажал кнопку, не отпуская её кликнул по браузеру, и он начал скроллится вниз. Попытался прокрутить вверх страничку - не получается, так как таймер всё еще работает. Получается что нужно опять зайти в программу и отжать там кнопку.
Как мне заставить программу работать в свернутом виде? Что бы она реагировала на нажатие кнопок на клавиатуре в свернутом виде?