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

解決

もも 2008-02-26 04:27:01 No: 29912

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

表裏未里 URL 2008-02-26 05:17:06 No: 29913

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

で、どうでしょうか。

もも 2008-02-26 18:50:24 No: 29914

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