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

解決

もも 2008-02-25 19:27:01 No: 29912 IP: 192.*.*.*

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

表裏未里 URL 2008-02-25 20:17:06 No: 29913 IP: 192.*.*.*

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

で、どうでしょうか。

編集削除

もも 2008-02-26 09:50:24 No: 29914 IP: 192.*.*.*

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

編集削除