[ApxaHGe1]

К примеру есть у меня TEdit1, в нем написано "F11"
как реализовать нажатие данной клавиши по клику на кнопку?

Код:

1 2	SendMessage(Window2, WM_KEYDOWN,StrToInt(Form1.Edit1.Text), 0); SendMessage(Window2, WM_KEYUP, StrToInt(Form1.Edit1.Text), 0);

Админ: для выделения кода пользуемся тегом СОDE!

так выдает ошибку)

[Alegun]

Сообщение от ApxaHGe1

...так выдает ошибку)

Ясен пень, ошибка - функции StrToInt цифирки вместе с буквами пытаются подсунуть

Из любимого, что в подписи

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

... type TSVKey = record  SKey : string;  VKey : Byte; end;   const  SndKey:TSVKey = (SKey: 'F11'; VKey: VK_F11); ...   if Form1.Edit1.Text = SndKey.SKey then  begin   SendMessage(Window2, WM_KEYDOWN, SndKey.VKey, 0);   Sleep(200);   SendMessage(Window2, WM_KEYUP, SndKey.VKey , 0);  end; ...

[icWasya]

Код:

1 2 3 4 5 6 7 8 9 10

var   SC:TShortCut;         SC:=TextToShortCut(Form1.Edit1.Text);     SendMessage(Window2, WM_KEYDOWN, SC, 0);   Sleep(200);   SendMessage(Window2, WM_KEYUP, SC , 0);