Delphi Нажата Ли Клавиша Ctrl

В Delphi можно проверить, была ли нажата клавиша Ctrl на клавиатуре во время работы программы. Для этого необходимо использовать комбинацию событий KeyDown и KeyUp с проверкой наличия клавиши Ctrl в свойстве Key:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin  if (Shift = [ssCtrl]) and (Key = Ord('C')) then  begin    // Ctrl+C была нажата  end;end;procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);begin  if (Shift = []) and (Key = Ord('C')) then  begin    // Ctrl+C была отпущена  end;end;

В этом примере обрабатывается нажатие и отпускание клавиши Ctrl в сочетании с буквой C. Если нужно проверить только нажатие клавиши Ctrl без других клавиш, можно использовать следующий код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin  if ssCtrl in Shift then  begin    // Ctrl была нажата  end;end;

Кроме того, можно использовать функцию GetKeyState для определения состояния клавиш на клавиатуре:

if (GetKeyState(VK_CONTROL) and $8000 <> 0) thenbegin // Ctrl была нажатаend;

Здесь VK_CONTROL — это константа, соответствующая клавише Ctrl на клавиатуре.