文字入力を受け取る方法

解決

(* '-' *) 2005-11-23 02:12:55 No: 18863

¥や＃の文字が入力された時イベントを起こしたい場合、
どうすればいいでしょうか？
とりあえずこんな感じでしみたんですけど、実行できるものの、
反応してもらえませんでした。

if Chr(Key)='\' then
begin
イベント
end;

Syake 2005-11-23 02:57:49 No: 18864

OnKeyPressではいかがですか？

if Key = '\' then
begin
・・・
end;

辛口 2005-11-23 07:15:30 No: 18865

> ¥や＃の文字が入力された時イベントを起こしたい場合、
> どうすればいいでしょうか？

質問の意図はわかりますが、Windowsプログラムのにおけるほとんどのモジュールは受動的でありイベントを受けて立つ側です。したがって今回の場合キーイベントに対する処理ということをテーマにしていると解釈できるわけです。Syake（鮭？）さんの答えはコントロールに対するイベントの模範解答ですが他にもあることも示唆していますので(* '-' *)さんはDelphi環境でのご研究に励まれることを期待します。

とまあ、これがいわゆるツッコミです。

がんばってね！

ｍｐ＾＾ 2005-11-24 12:53:14 No: 18866

OnKeyPressの例

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['\','#'] then
  begin
    Beep;      //警告音
    Key := #0; //入力を無効化
  end;
end;

Edit1で\や#が押された時のイベントで、警告音を鳴らしてその入力を無効にすると言った内容です。

(* '-' *) 2005-11-26 00:51:31 No: 18867

成功しました。
ありがとうございますッ！