- 83 名前： ◆XcB18Bks.Y mailto:sage [2008/03/22(土) 11:58:06 ]
- >>82
私もそれで行けるかなと思ったのですが念のためにテストしてみたら駄目でした。
もし単にタブ文字入力を禁止したいのでしたら
単にタブ文字かどうかを調べてもしそうなら文字を消すようにすればいいと思います。
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
//// タブ文字が入力されたら取り消す ////
if Key = #9 then // 9はタブを示す文字コード
begin
Key := #0; // #0を代入すると文字入力がキャンセルされる（らしい）
Beep; // 取り消しとは関係ないけど「おっと、ここではタブキーは無効なんだぜ」とユーザーに伝える
end;
end;
そうではなくてもし
[Ctrl]+[I]によるタブ文字入力を禁止したいが[Tab]キーによる入力は許可したい
というのでしたらすいませんがちょっとわかりません。
