allow cut & paste of numbers only..

[Ian Branch 121]

Hi Team,

ATT I use this routine in the OnKeyPress of the TDBEdit to limit the data entry to only numbers.

  // #8 is Backspace
  if not (Key in [#8, '0'..'9']) then begin
    MessageBeep(MB_ICONERROR);
    TaskMessageDlg('Invalid data entry!', 'Only numbers are allowed for the Service #.', mtError, [mbOK], 0);
    // Discard the key
    Key := #0;
  end;
  //

Unfortunately this does not allow cut & paste of a number.

How can I facilitate cut & paste a number with leading or trailing spaces, without losing the numeric control?

I have tried using MaskEdit but it still allows the pasting of the number with leading or trailing spaces. :-(

Regards & TIA,

Ian

[corneliusdavid 143]

Use TRzDBNumericEdit to save yourself some time. 

 

[Ian Branch 121]

Yup.  I have.  Hence my other question. 

Thanks & Cheers.

Ian

[corneliusdavid 143]

That's what I thought.  LOL!

[Fr0sT.Brutal 897]

Why not catching OnChange? Input could be done by many different ways - by mouse, with SendMessage, etc.