0

Форма закрывается при нажатии любой кнопки кроме Ctrl. При нажатии Ctrl открывается вторая форма.

if (GetKeyState(ord(VK_CONTROL)) < 0) then 
begin
 form2.show;
end
else
begin
 Application.Terminate;
end;

Я бы хотел чтоб вторая форма открывалась по комбинации клавиш. Например, Ctrl + Tab:

if (GetKeyState(ord(VK_CONTROL)) < 0) and (GetKeyState(VK_TAB) < 0) then 
begin
 form2.show;
end
else
begin
 Application.Terminate;
end;

Но этот способ не срабатывает, тк первая форма закрывается сразу же при нажатии клавиши и вторая форма просто не успевает открыться. Надо сделать так, чтоб при нажатии клавиши форма не закрывалась сразу.

1 ответ 1

0

Вот так все работает

if (GetKeyState(ord(VK_CONTROL)) < 0) then
begin
  if (GetKeyState(ord(VK_TAB)) < 0) then
  begin
    form2.show;
    showcursor(true);
  end;
end
else
  Application.Terminate;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.