「Tips - Delphi」の編集履歴（バックアップ）一覧に戻る

Tips - Delphi - (2007/09/28 (金) 14:32:20) のソース

&font(b,144%){Tips - Delphi}
#contents

----
***よく使うキーコード
|#00|キー入力無視|
|#08|BackSpace/Delete|
|#13|Enter 改行|

***キー入力を制限する
制限したいコンポーネントのOnKeyPressイベントに、特定のキー以外を無視するルーチンを設定する。

 procedure TForm1.KeyPressLimit(Sender: TObject; var Key: Char);
 begin
   if not (Key in ['0'..'9', #08]) then // 入力キーが'0'～'9',BackSpace/Delete 以外なら
   begin 
     beep; // ビープ音による警告
     Key := #0; // 入力を無視
   end;
 end;