文字入力を受け取る方法

解決

(* '-' *)  2005-11-22 17:12:55  No: 18863  IP: 192.*.*.*

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

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

編集 削除
Syake  2005-11-22 17:57:49  No: 18864  IP: 192.*.*.*

OnKeyPressではいかがですか？

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

編集 削除
辛口  2005-11-22 22:15:30  No: 18865  IP: 192.*.*.*

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

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

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

がんばってね！

編集 削除
ｍｐ＾＾  2005-11-24 03:53:14  No: 18866  IP: 192.*.*.*

OnKeyPressの例

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

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

編集 削除
(* '-' *)  2005-11-25 15:51:31  No: 18867  IP: 192.*.*.*

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

編集 削除