[Ctrl]キーを押しながらClickするには？

解決

---

あるボタンをクリックするときに
[Ctrl]キーを押しているときと
押していないときで処理を変えたい
のですが、どうすればいいのでしょうか？。

編集    削除

---

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (GetKeyState(VK_CONTROL) < 0) then
  showmessage('CTRL')
  else
  showmessage('Click Only');
end;

で、どうでしょうか。

編集    削除

---

表裏未里さん
連絡遅くなりまして、すみませんでした。
うまくいきました！、ありがとうございました。
また、いろいろ教えてくださいね。

編集    削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。