キーの入力取得について (ID:19868)

名前

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

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