キーの入力取得について

ROM  2006-01-29 19:31:49  No: 19867  IP: 192.*.*.*

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

編集 削除
path  2006-01-29 20:28:50  No: 19868  IP: 192.*.*.*

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

編集 削除
HOta  2006-01-30 07:25:19  No: 19869  IP: 192.*.*.*

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

編集 削除