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 = $04; { NOT contiguous with L & RBUTTON }
vk_Back = $08;
vk_Tab = $09;
vk_Clear = $0C;
vk_Return = $0D;
vk_Shift = $10;
vk_Control = $11;
vk_Menu = $12;
vk_Pause = $13;
vk_Capital = $14;
vk_Escape = $1B;
vk_Space &