キーの入力取得について

ROM 2006-01-30 04:31:49 No: 19867

RichEdit上で[Shift]キーを押しながら、"["が入力された時、
つまり
"{"が入力された時に
イベントが起こるプログラムを組みたいんですが、
一度、if文でandを使って組んでみたら、
Shiftを押しただけでイベントが起こっちゃたんですが、
どのよーにしたら実現できるでしょーか？
ちなみにエディタ上に"{"が入力されたときではなく、
シフトと"["が同時に押されたときに
イベントを起こすようにしたいのですが。
お願いします！！

path 2006-01-30 05:28:50 No: 19868

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '{' then
  begin
    beep;
    key := #0;
  end;
end;

HOta 2006-01-30 16:25:19 No: 19869

シフトキーを判別するのなら、OnKeyDownかOnKeyUpイベントを使います。