2012年5月28日

Delphi edit只能输入数字和退格键

摘要： procedure TFrmMain.edtKeyPressInPut(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9', '.', #08]) then begin Key := #0; end;end;主要是['''''''']里面的表达，两者之间用‘,’号隔开，相关的键盘代码是：vk_LButton = $01; vk_RButton = $02; vk_Cancel = $03; vk_MButton 阅读全文

posted @ 2012-05-28 16:08 呼嘎嘎 阅读(3251) 评论(0) 推荐(0)

导航