同時に複数のキーを押してイベントを起こすには (ID:7543)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じ？ procedure TMainForm.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in Shift) and (Key = VK_SPACE) then begin //なんか処理 end; end;