防呆裝置，無效的按鍵不能按

procedure TFormMain.SpinTotalTimeKeyPress(Sender: TObject;var Key: Char);
begin
 if (Key='-') or (Key='.') or (Key='+') then Key:=char(0);
end;

function CheckLegalSpinValue( var spin:TSpinEdit; var Key:Word ):boolean;overload;
begin
  //if not( Key in [$9, $30..$57, $60..$69, $D, $A, $25, $27, $90, VK_BACK, VK_DELETE] ) then
  //應觀眾要求修改 20070625 Ma
  if not( Key in [$9, $30..$57, $60..$69, $D, $A, $25, $26, $27, $28, $90, VK_BACK, VK_DELETE] ) then
  begin
    OneBtnMsgBox(g_saMsg[27], MB_ICONSTOP) ;  // '請輸入合法的數字'
    spin.Value := 0 ;
    Result := false ; // defined in windows
    Exit ;
  end ;
  Result := true ;
end ;


{ check if the input in TSpinEdit is legal }
function CheckLegalSpinValue( var spin:TSpinEdit):boolean;overload;
begin
  if( IsLegalInt(spin.Text) ) then
    Result := true
  else
    Result := false ;
end ;

procedure TFrame3.SpinEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if( not CheckLegalSpinValue(SpinEdit1, Key) ) then
    Exit;
end;